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“Commodore  World” 

aparte  de  venderse  generalmente  en  kioscos, 
se  encuentra  asimismo  a la  venta 

en  los  siguientes  distribuidores  de  Commodore  y librerías. 

ALICANTE 

IBIZA 

• Casa  Wagner.  c/  Juan  Carlos  lt  37.  Elda. 

• Kelson.  Plaza  España,  S/N.  San  Antonio  Abad. 

Teléfono:  (965)  39  03  96. 

Teléfono:  (971)  34  13  09. 

r 

• Ferretería  Progreso,  c/  General  Jordana,  28. 
Elda.  Teléfono:  (965)  38  11  45. 

MADRID 

BADAJOZ 

• Chips  + Tips.  c/  Puerto  Rico,  21-23. 

• Librería  García  Peña,  c / Cavanilles,  52. 

• Control  Sistemas.  Avda.  Santa  Marina,  25A. 

• Microtronic.  c/  Quinta  del  Sol,  39.  Las  Rozas. 

Teléfono:  (924)  25  88  00. 

Teléfono:  (91)  637  31  51. 

BARCELONA 

• País  de  los  Microordenadores.  Bravo  Murillo,  18. 
Teléfonos:  (91)  446  33  17  - 446  37  12. 

• Computer  Service.  Avda.  Abad  Marcet,  325. 

[ arrasa.  Teléfono:  (93)  788  63  77. 

MALAGA 

• Computerhard.  c/  S.  Jaime,  48.  Granollers. 

• Informática  Martínez  SA.  c/  Cristo  de  la  Epi- 

Teléfono:  (93)  870  09  19. 

demia,  90.  Teléfono:  (952)  26  15  60. 

• Gadea.  Les  Valls,  12-14.  Sabadel!. 

Teléfono:  (93)  725  25  43. 

MURCIA 

• Librería  Emilia  Pérez  Radua.  c/  Mayor,  35. 

• Procoinsa.  Ronda  Norte,  27. 

Castellar  del  Vallés.  Teléfono:  (93)  714  89  51. 

Teléfono:  (968)  23  94  49. 

• Librería  Michel.  Ronda  Guinardo,  1.  Sardañola. 

• Mozart.  c/  Jaime  I,  145.  Mollet. 

PALMA  DE  MALLORCA 

Teléfono:  (93)  593  75  01. 

• AEF.  c/  Balmes,  13.  Teléfono:  (971)  27  36  66. 

• Sonimóvil.  c/  Alcalde  Armengou,  53.  Manresa. 
Teléfono:  (93)  873  78  17. 

PAMPLONA 

BILBAO 

• Microordenadores  Ramar.  c/  Navarro  Villos- 
lada,  7.  Teléfono:  (948)  23  72  80. 

• Bilbomicro  SA.  c/  Aureliano  Valle,  7.  Bilbao-10. 
Teléfono:  (94)  443  43  51. 

PONFERRADA 

BURGOS 

• MicroBierzo.  c/  Carlos  1,  2. 

Teléfono:  (987)  41  74  21. 

• E.l.S.A.  c/  Madrid,  4.  Teléfono:  (947)  20  46  24. 

CANARIAS 

SALAMANCA 

• Compusoft.  c/  Arco,  1 . Teléfono:  (923)  21  59  93. 

• Relax.  Rambla  de  Pulido,  85.  Santa  Cruz  de 
Tenerife.  Teléfono:  (922)  28  37  05. 

SANTANDER 

CIUDAD  REAL 

• Librería  Hernández.  San  Francisco,  15. 

Teléfono:  (942)  22  53  30. 

• C1SA.  c/  D.  Víctor,  15.  Tomelloso. 

Teléfonos:  (926)  51  00  07  - 51  15  72. 

SANTIAGO  DE  COMPOSTELA 

• Electrónica  Turrillo.  c/  Pedrera  Baja,  7. 

• GestyComputer.  Avda.  Romero  Donallo,  25. 

Teléfono:  (926)  22  38  67. 

Teléfono:  (981)  59  87  54. 

CORUÑA,  LA 

SEVILLA 

• Cetronic,  S.L.  c/  Palomar,  22  Bajo. 

• Papelería  Mora,  c/  Santa  Cruz,  5. 

Teléfono:  (981)  27  26  54. 

Teléfono:  (954)  83  14  80. 

• Photo  Copy.  c/  Teresa  Herrera,  9. 

Teléfono:  (981)  21  34  21. 

TARRAGONA 

• Sanlusa,  S.L.  San  Luis,  46  al  50. 

• Ofícomplet.  Plaza  de  la  Cinta,  6.  Tortosa. 

Teléfono:  (981)  23  07  49. 

Teléfono:  (977)  44  14  50. 

GERONA 

• Comercial  Informática  de  Tarragona  SA.  calle 
Gasómetro,  20.  Teléfono:  (977)  23  08  53. 

• Digit  Informática,  c/  Avda.  11  Setembre,  7. 
Olot.  Teléfono:  (972)  26  94  01. 

VALLA  DOUD 

• Regiscompte  SA.  c/  Emilio  Grahit,  17  Bis. 

• Chips  + Tips,  S.  A.  c/  Juan  de  Juni,  3. 

Teléfono  (972)  21  99  88 

Teléfono:  (983)  33  40  00. 

HUELVA 

ZARAGOZA 

• Computerlog,  S.A.  c/  Tendaleras,  15.  Teléfono: 

• ADA  Computer.  Centro  Independencia.  Paseo 

(955)  25  81  99. 

Independencia,  24-26.  Teléfono:  (976)  29  85  62. 

TIRADA  D€  COMMODOR€  UJORLD 
Certificación  de  28.000  ejemplares 

Según  certiñcodo  firmado  por  la  auditoría  internacional  D€lOITT€  HRSKINS  S€US,  S.  R. 

el  5 de  marzo  de  1 984, 

la  tirada  de  Commodore  World  es  de  28.000  ejemplares. 

€ste  certificado  se  encuentra  en  las  oficinas  de  S.I.M.S.R.  para  comprobación 

de  cualquier  persono  o entidad  que  lo  desee. 
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CONCURSOS  “A  GOGO” 


Aparte  de  nuestros  concursos  permanentes 


Concurso  do  programación  “Forre 
Moret”  —550.000  on  premios— 


La  casa  Ferre-Moret  convoca  hoy,  en  colabo- 
ración con,  y a través  de  Commodore  World,  un 
importante  concurso  de  programación  sobre  tar- 
jetas de  40-80  columnas  para  el  V1C  y de  80 
columnas  para  el  C-64  con  premios  de  50.000  a 
250.000  ptas  y opción  de  compra  para  progra- 
mas no  ganadores.  Bases  en  pág.  6. 


A por 
viajo  y 


el  suscriptor  8.000,  un 
una  impresora. 


En  mi  última  visita  a Carlos  Domenech,  presi- 
dente de  MFC,  le  comentaba  que  me  encontraba 
en  un  anticlimax  después  de  toda  la  emoción  de 
la  carrera  hacia  el  5.000  y los  viajes  a Estados 
Unidos  e Inglaterra,  “bueno,  me  dijo  riéndose, 
Commodore  tiene  instalaciones  en  Hong-Kong”... 
Vale,  vale,  vale...  precioso...  quizás  un  día 
...¿quién  sabe?...  pero  las  finanzas  de  Commo- 
dore World  no  pueden  permitirse  ese  lujo  de 
momento...  pero  sí  otros  lujos  más  modestos. 
Cuando  lleguemos  al  número  8.000  se  rifará  un 
viaje  para  dos  personas  ENTRE  TODOS  LOS 
SUSCRIPTORES  y el  ganador  podrá  elegir  el 
lugar  entre  varias  opciones  (ver  pie  de  página). 
Asimismo  se  sorteará  ENTRE  TODOS  LOS 
SUSCRIPTORES  una  impresora  MPS  801  (o 
similar)  regalo  de  MEC.  Desde  aqui  quiero  dar 
las  gracias  a Carlos  Domenech  por  su  colabora- 
ción. 


Primer  concurso  nacional  escolar 


Ya  anunciado  en  nuestro  número  anterior  y 
cuyas  bases  se  repiten  de  nuevo  en  pág.  6.  Se  está 
trabajando  a fondo  y se  presentará  oficialmente 
a la  prensa  en  el  mes  de  septiembre.  En  nuestro 
próximo  número  anunciaremos  lugar,  día  y hora. 


entre  los  lectores  colaboradores  (ver  pie  de  página)  nacen  hoy  tres  nuevos  grandes  concursos  y 

nuevos  e interesantes  alicientes  para  nuestros  colaboradores  de  programas. 


I '|  20%  de  la  venta  de  cintas  para 
las  lectores  colaboradores 

Inicialmente  no  pensábamos  comercializar  los 
programas  remitidos  por  los  lectores  y publica- 
dos en  Commodore  World.  Sin  embargo,  últi- 
mamente hemos  tenido  varias  peticiones  de  cin- 
tas de  programas  de  colaboradores,  por  lo  que 
decidimos  y ya  lo  estamos  haciendo,  remitir  un 
20%  por  cinta  vendida  a los  autores  correspon- 
dientes. 

Lo  que  nos  lleva  a... 

...Nu ostros  lectores  los  grandes  pro- 
tagonistas 

Commodore  World  nació  como  una  auténtica 
revista  de  equipo,  un  equipo  formado  por  tres 
colaboradores:  la  Editorial  S1MSA,  Club  Com- 
modorc  de  MEC  y todos  los  lectores. 

Estos  últimos  están  resultando  ser  el  alma  de 
la  revista,  marcando  la  pauta  de  lo  que  quieren 
ver  y leer,  dándonos  la  clave  de  las  necesidades 
de  la  gran  familia  Commodoriana  y colaborando 
activamente  con  sus  aportaciones  personales, 
siendo  estas  tantas  que  casi  no  damos  abasto 
para  leer,  comprobar  y publicar.  Todos  los 
números  nos  quedan  dos  o tres  programas  “en 
cartera”  para  el  próximo.  Si  alguno  de  vosotros 
no  veis  vuestro  programa,  tened  paciencia,  pues 
seguro  que  aparece  en  el  número  siguiente.  Oca- 
sionalmente, tenemos  que  devolver  algún  pro- 
grama, por  defectuoso  o no  “entrar”.  Devolvéd- 
noslo corregido,  eso  es  todo... 

•••  Por  eso... 

...Estamos  ideando  siempre  nuevos  premios  y 
alicientes  pues  creemos  que  aparte  de  divertirnos 
todos,  el  tema  es  importante.  La  informática  no 
es  ya  ni  un  lujo,  ni  un  juguete  extravangante,  sino 


una  parte  más  de  la  forma  de  vida  de  este 
final  de  siglo,  y en  un  futuro  cercanísimo 
un  arma  de  trabajo  casi  imprescindible.  No 
queremos  ser  una  revista  más  de  simple 
entretenimiento,  sino  también  una  herramien- 
ta de  utilidad  y de  creación  de  buena 
informática  y plataforma  de  buenos  informáti- 
cos (¡presentes  y futuros!). 


Manuales  en  castellano  de  cartu- 
chos MEC 

MEC  ha  tenido  una  gran  idea,  el  entregar- 
nos para  su  publicación  los  manuales  en 
castellano  de  algunos  de  sus  cartuchos  especia- 
les, a fin  de  que  todos  los  usuarios  tengan 
acceso  a los  mismos.  En  este  número  comen- 
zamos con  el  del  Superexpander  para  el  V1C 
que  publicaremos  en  dos  partes  y en  el 
próximo  número  comenzaremos  con  el 
MANUAL  DEL  MONITOR  DE  CODIGO 
MAQUINA,  que  publicaremos  probablemen- 
te en  tres  parles.  Otros  seguirán  que  iremos 
anunciando 


Feliz  verano  a todos 

Muchas  otras  son  las  cosas  que  aparecen 
en  este  número  aunque  prefiero  que  ellas 
hablen  por  sí  mismas  y despedirnos  hasta  el 
lu  de  septiembre  deseando  unas  felices  vacacio- 
nes a todos,  vosotros  y nosotros. 


CONCURSOS  PERMANENTES 


Colaboraciones  de  Programas  y Magia 

La  verdad  sea  dicha:  os  estáis  portando;  las  colaboraciones  que  nos  están 
llegando  son  numerosas  y de  muy  buena  calidad.  Por  lo  tanto,  vamos  a 
aclarar  las  condiciones  de  nuestros  concursos  permanentes. 

1)  Los  sorteos  se  realizarán  en  los  meses  de  junio  y diciembre. 

2)  Se  sortearán  siempre  seis  premios,  tres  de  15.000,  10.000  y 5.000 
pesetas  en  metálico  de  “Commodore  World”  y tres  del  mismo  valor  en 
material  de  Microelectrónica  y Control,  entre  todas  las  colaboraciones 
publicadas. 

3)  Se  sortearán  siempre  seis  premios,  tres  de  3.000,  2.000  y 1.000  pesetas 
en  metálico  de  “Commodore  World”  y tres  del  mismo  valor  en  material  de 
Microelectrónica  y Control,  entre  todas  las  contribuciones  publicadas  en  la 
sección  de  “Magia”. 

4)  Ádicionalmcnte,  se  sortearán  diversos  premios  de  cintas,  juegos,  etc. 
donados  por  firmas  y distribuciones,  entre  todas  las  colaboraciones. 

5)  Los  autores  de  las  colaboraciones  vendidas  dentro  de  nuestro  “Servicio 
de  Cintas”  percibirán  el  20%  del  precio  de  la  cinta. 

6)  Todas  las  colaboraciones  deben  venir  escritas  a máquina  y los  progra- 
mas grabados  en  cinta  (si  es  posible),  o con  el  listado  completo  en  impresora. 
Nuestros  lectores  más  jóvenes  pueden  escribir  a mano  pero  con  letra  muy 
clara. 

7)  Quedan  automáticamente  descalificadas  tanto  del  sorteo  como  del 


“Servicio  de  Cintas”  las  colaboraciones  que  hayan  sido  enviadas  a otras 
revistas. 

8)  Las  colaboraciones  se  enviarán  a “Commodore  World”,  C/ Pedro 
Muguruza,  4,  8QB.  Madrid- 16. 


MAS  VIAJES  Y OTRO  REGALO  DE  “IMPRESION”... 
A POR  EL  SUSCRIPTOR  8.000 

Es  evidente  que  a nuestros  sucriptores  les  gusta  viajar.  De  momento  Joan 
Pujiula  visitará  los  Estados  Unidos  en  julio  y Juan  Mejuto  Iglesias  irá  a 
Inglaterra  en  el  otoño.  Queríamos  sortear  algo  un  poco  especial  ENTRE 
TODOS  LOS  SUCRIPTORES  cuando  lleguemos  al  suscriptor  número 
8.000,  y hemos  optado  por  dos  premios,  uno  concedido  por  Microelectró- 
nica y Control  y otro  concedido  por  “Commodore  World”. 

MF.C  regalará  una  impresora  MPS  801  (o  similar),  y nosotros  hemos 
escogido  un  surtido  de  viajes  muy  “chulos”  para  dos  personas  para  que  el 
ganador  elija  el  que  más  le  apetezca.  La  selección  que  hemos  hecho  es  la 
siguiente: 

Viajes  de  4 días  en  hoteles  de  primera  clase  a uno  de  estos  lugares: 

París,  Lisboa,  Atenas,  Amsierdam,  Niza,  Viena. 

O viajes  de  una  semana  en  hoteles  de  4/5  estrellas: 

Canarias  o Mallorca. 
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Tres  momentos  del  sorteo  que  se  celebró  el  día  18  para  la  entrega  de  los  premios  abajo  detallado. 


GANADORES  DEL  GRAN  SORTEO  COMMODORE  WORLD 

El  día  18  de  junio  se  celebró  el  Ier-  sorteo  semestral  de  Commodore  World  entre  todos  los  colaboradores,  así  como  el  del  viaje 
a Inglaterra  entre  todos  los  suscriptores.  El  sorteo  se  celebró  públicamente  en  el  English  Montessori  School  de  Madrid. 

Queremos  expresar  nuestro  más  sincero  agradecimiento  a: 

Milagros  King,  Directora  del  English  Montessori,  que  no  solamente  nos  cedió  el  local  sino  que  además  nos  preparó  una  fiesta 
de  Coca  Colas-chips  y panchitos. 

A la  casa  Indescomp  que  sólo  por  su  continua  dedicación  a la  promoción  de  la  informática  ha  hecho  posible  que  pudiésemos 
entregar  10  premios  extras. 

A Microinformática  y Soft  que,  a pesar  de  su  reciente  creación,  ha  contribuido  con  otros  cuatro  premios. 

En  nombre  de  todo  el  equipo:  Simsa,  MEC  y lectores,  gracias  a todos  ellos. 


PREMIOS 

Sorteo  viaje  a Inglaterra  - N8  suscriptor:  3.766.  Juan  Mejuto  Iglesias.  Santiago  de  Compostcla  (La  Coruña) 

COLABORACIONES 

Premios  entregados  por  Commodore  World: 

— 15.000  ptas.  Alfredo  Sindin  Valero.  Madrid.  Apareció  revista  n°  5. 

— 10.000  ptas.  José  Vicente  López  Navarrro.  Albacete.  Apareció  revista  n°  4. 

— 5.000  ptas.  Felca.  Palma  de  Mallorca  (Baleares).  Aparece  revista  n°  6. 

Material  entregado  por  Microelectrónica  y Control  por  valor  de: 

— 15.000  ptas.  Rafael  Muñoz  Alfonso.  Barcelona.  Aparece  revista  n2  6. 

— 10.000  ptas.  Guillermo  Caamaño  Olivares.  Granada.  Apareció  revista  n2  4. 

— 5.000  ptas.  Club  Alar/.  Pamplona  (Navarra).  Apareció  revista  n2  3. 

2 regla-reloj-calculadoras  entregadas  por  ComputerWorld/  España  a: 

— Carlos  Beldarrain  Santos.  Pamplona  (Navarra).  Apareció  revista  nQ  5 
— Descalificado. 

6 cintas  entregadas  por  INDESCOMP  a: 

— R.  C.  Massó.  Barcelona.  Apareció  revista  n2  6 
— Feo.  Sarrias  Pedemonte.  Barcelona.  Aparece  revista  nQ  6 
— Pedro  Obrador  Arta.  Palma  de  Mallorca  (Baleares).  Aparece  revista  n2  6 
— Domingo  Mangue/  Gallego.  Móstoles  (Madrid).  Apareció  revista  nc  5 
— Juan  Carlos  Loren.  Leganés  (Madrid).  Aparece  revista  nQ  6 
— Luis  Carballo  Taboada.  Orense.  Apareció  revista  n2  1. 

MAGIA 

Premios  entregados  por  Commodore  World: 

— 3.000  ptas.  José  Maria  Rodríguez.  Las  Arenas  (Vizcaya).  Apareció  revista  n2  5. 

— 2.000  ptas.  Rafael  García  Segura.  Málaga.  Apareció  revista  n2  4. 

— 1.000  ptas.  Leandro  Olalla.  Málaga.  Apareció  revista  n2  5. 

Material  entregado  por  Microelectrónica  y Control  por  valor  de: 

— 3.000  ptas.  J.M.V.  Apareció  revista  n2  3. 

— 2.000  pías.  Luis  Suárez  Antuña.  Alcalá  de  Henares  (Madrid).  Apareció  revista  n2  5. 

— 1.000  ptas.  Alfredo  Sindin  Valero.  Madrid.  Apareció  revista  n2  3. 

2 regla-reloj-caculadoras,  entregadas  por  ComputerWorld/ España  a: 

— Santiago  Casas  Duarte.  Tarrasa  (Barcelona).  Aparece  revista  n2  6. 

— Domingo  Mángucz  Gallego.  Madrid.  Apareció  revista  n2  2 
4 cintas  entregadas  por  Indescomp  a: 

— Santiago  Martínez  Romero.  Aparece  en  revista  n2  6 
— Domingo  Márquez  Gallego.  Móstoles  (Madrid).  Apareció  revista  n2  3 
— Luis  Casi  Gil.  Barcelona.  Apareció  revista  n2  4 
— José  Luis  Arostegui  Plaza.  Granada.  Apareció  revista  n2  5 
2 Cintas  entregadas  por  M.l.S.S.A.  a: 

— David  Pérez  Corral.  Barcelona.  Apareció  revista  n2  3 
— Rafael  García  Segura.  Málaga.  Aparece  revista  n2  6 

RAMY  Y ROMO 

/ regla-reloj-calculadora  entregada  por  ComputerWorld/ España  a: 

— María  Longa  Porlabales.  Vigo  (Pontevedra).  Mandó  los  nombres  “EN”-“CHUFE” 

/ cinta  entregada  por  M.l.S.S.A.  a: 

— Belén  Longa  Portabales.  Vigo  (Pontevedra).  Mandó  los  nombres  “COMMO”  - “DORE”. 
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Convocatoria  del  Primer  Concurso 
Nacional  Escolar  de  Programación 
patrocinado  por  Commodore  World  y 
Microelectrónica  y Control 


BASES 

Podrán  participar  en  el  mismo  todos  aquellos  niños  y jóve- 
nes que  estén  en  edad  escolar  pre-univcrsitaria  o 
equivalente. 

2o  Habrá  tres  grupos  definidos: 

a)  E.G.B. 

b)  B.U.P. 

c)  F.P. 

30  Los  trabajos  pueden  ser  presentados  por  equipos  o por 
individuales. 

4Ü  Los  trabajos  presentados  por  equipos  deben  especificar: 

a)  Nombre  del  equipo. 

b)  Centro  al  que  representan. 

c)  Nivel  de  enseñanza  que  cursan  (E.G.B.-B.IJ.P-F.P.). 

d)  Nombre  del  profesor,  monitor  o coordinador. 

5Ü  Los  trabajos  presentados  por  individuales  deben  ir  acom- 
pañados de: 

a)  Nombre  del  autor. 

b)  Edad  y curso  que  estudia. 

c)  (j)  Si  concursa  representando  a un  centro:  nombre  del 
mismo  y nombre  del  profesor  responsable. 

(i¡)  Si  concursa  por  si  mismo:  nombre  del  colegio  donde 
estudia  y firma  del  director  o profesor  responsable  ava- 
lando que  en  tanto  cuanto  conoce  al  concursante  el  trabajo 
que  presenta  es  suyo  propio. 

6y  El  tema  del  concurso  es  la  realización  de  un  programa  edu- 
cativo sobre  materia  libre  a elegir  por  los  concursantes.  La 
extensión  del  programa  es  también  de  libre  elección. 

7o  Cada  centro  puede  presentar  el  número  de  equipos  o con- 
cursantes individuales  que  desee,  siempre  que  cada  trabajo 
sea  enviado  por  separado. 

8Q  Los  trabajos  deben  incluir: 

a)  Nombre  el  programa. 

b)  Nombre  del  computador  para  el  que  está  conteccio- 
nado  y periféricos  adicionales  que  se  necesitan  (si  fuese  el 
caso). 

c)  Objetivo  del  programa. 

d)  Explicación  detallada  del  programa  (a  máquina  o 
impresora). 

e)  Listado  completo  a impresora. 

f)  Grabación  en  cinta  o disco. 

9°  Todos  los  trabajos  presentados  deben  ser  originales  e 
inéditos. 

10ü  Los  centros  que  pueden  presentar  equipos  o concursantes 
individuales  son: 

a)  Todo  colegio,  escuela  o instituto,  público  o privado 
que  imparta  las  enseñanzas  de  E.G.B.,  B.U.P,  o F.P. 

b)  Centros  de  Informática  que  tengan  grupos  de  ense- 
ñanza especifica  para  niños  y jóvenes  menores  de  18  años. 

c)  Clubs  de  informática  que  mantengan  actividades  espe- 
cíficas para  niños  y jóvenes  menores  de  18  años. 

1 Io  Los  trabajos  deben  ser  enviados  antes  del  31  de  diciembre  de 
1984. 

12ü  El  fallo  del  concurso  se  dará  a conocer  en  la  primera 
semana  de  marzo  de  1985  en  el  lugar,  fecha  y hora  que  se 

indicarán. 


13°  Los  trabajos  premiados  quedarán  propiedad  de  los 
patrocinadores. 

En  nuestro  número  de  septiembre  anunciaremos  la  fecha  y 
lugar  donde  se  celebrará  la  presentación  oficial  a la  prensa  del 
concurso  así  como  la  relación  de  premios. 


Convocatoria  del  primer  concurso  nacional 
de  programación  en  80  columnas  de 
Commodore-64  y 40-80  columnas  del 
VIC-20  patrocinado  por  Ferre-Morot,  S.A. 
Con  la  colaboración  de  Commodore- 
World,  más  de  500.000  ptas.  en  premios 


BASES 

1»  Podrán  participar  todos  los  usuarios  de  COMMODORE- 
64  y VIC-20  que  hayan  obtenido  la  tarjeta  de  80  columnas 
de  FERRE-MORET,  S.A. 

2g  Cada  concursante  podrá  presentar,  un  programa  realizado 
por  él  o por  un  equipo  del  que  deberán  indicar  un  titular. 

3Q  Se  enviará  la  explicación  detallada  del  programa  redactado 
en  español,  escrito  a máquina.  El  programa  se  enviará  en 
cassette  o disco,  adjuntando  su  correspondiente  listado  del 
programa. 

4Q  Se  enviarán  por  correo  certificado  a la  siguiente  dirección, 
FERRE-MORET,  S.A.  calle  Buenos  Aires  nv  30,  2*-3.a  de 
BARCELONA-36.  Antes  del  31  de  enero  de  1985. 

5o  Los  programas  no  premiados  podrán  ser  solicitados  por  sus 
propietarios  en  el  plazo  de  treinta  dias  después  del  fallo. 

6Ü  El  resultado  se  comunicará,  directamente  a los  ganadores 
y se  publicará  en  la  revista  COMMODORE  WORLD. 

7y  Los  premios  se  entregarán  durante  la  primera  semana  de 
marzo  de  1985  coincidiendo  con  la  entrega  de  premios  del 
PRIMER  CONCURSO  NACIONAL  ESCOLAR  DE 
PROGRAMACION. 

8Q  Los  programas  premiados  quedarán  en  propiedad  de 
FERRE-MORET,  S.A. 

9C  Los  programas  que  no  obtengan  premio,  recibirán,  en  caso 
que  así  lo  considere  FERRE-MORET,  S.A.,  olertas  de 
compra  de  sus  programas. 

I0CJ  Los  premios  ascenderán  a 500.000  Ptas.  repartidos  de  la 
siguiente  manera: 

lü  250.000  Ptas. 

2Q  150.000  Ptas. 

30  100.000  Ptas. 

11°  Todos  los  participantes,  que  no  hayan  recibido  premio  u 
oferta  de  compra,  podrán  participar  en  el  concurso  de  cola- 
boradores que  habitualmente  COMMODORE  WORLD 
viene  realizando  con  un  premio  extra  de  FERRE-MORET, 
S.A.,  de  50.000  Ptas. 

12°  Los  trabajos  deberán  de  ser  inéditos  y desarrollar  temas  de 
utilidad,  programas  profesionales,  cientílicos,  educativos, 
etcétera. 

FERRE-MORET,  S.A.  se  reserva  el  derecho  de  modificar  las 

bases  de  este  certamen,  dejarlo  desierto  o suprimirlo,  por  causa 

de  fuerza  mayor.  En  este  caso  la  empresa  se  compromete  a 

comunicarlo  a través  de  COMMODORE  WORLD. 


INDICE  DE  ANUNCIANTES 


BASIC  MICRO  ORDENADORES  49 

CAIXA  19 

CASA  DE  SOFTWARE  21,  55 

CENTRO  DE  INFORMATICA  63 

COMMODORE  42,43,68 

COMMODORE  WORLD  (Distribución)  2 

COMMODORE  WORLD  (Suscripciones)  35 

DELTAVIT  52 

EAF 

FERRET  MORE  13 


IBERDATA  23 

INDESCOM  67 

MICROSISTEMAS  32 

NOVO  DIGIT  45 

NUEVOS  CONCEPTOS  53 

PHOTO  COPY  29“ 

REG1STER  LATELY  CONTINENTAL  41 

REM  59 

SAKATI  15 

TELE  SANT  JUST  47 
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mmwm 


Commodore 


Calle  

Población 


Incluyo  cheque  por  valor  de 


N9  TELEF 

. D.  P Provincia 


pesetas  + 75  de  gastos  de  envío. 


EJEMPLARES  ATRASADOS  DE  COMMODORE  WORLD 


Precio  por  ejemplar  275  ptas. 
Forma  de  pago:  sólo  por  cheque 


Peticionario 


Commodore  World 


NOMBRE  

DIRECCION  

POBLACION  ( ) PROVINCIA 

TELEF MARCA  V MODELO  DEL  ORDENADOR  


EDAD 


CIUDAD  DONDE  LO  COMPRO  DISTRIBUIDOR 

APLICACIONES  A LAS  QUE  PIENSA  DESTINAR  EL  EQUIPO  


Deseo  iniciar  la  suscripción  con  el  nQ 

Adjunto  cheque  de  2.530  pesetas  Q 

Reembolso  más  gastos  del  mismo 

al  recibir  el  primer  n9  de  la  suscripción  Q 
lEnviar  o la  dirección  del  dorso) 

Extranjero  $40.  Solamente  por  correo  aéreo 


7 

□ 

□ 


Firma, 


DESEO  SUSCRIBIRME  A 
COMMODORE  WORLD  POR 

UN  AÑO  AL  PRECIO  DE 
2.530  PTS.  DICHA  SUSCRIP- 
CION ME  DA  DERECHO, 
NO  SOLO  A RECIBIR  LA 
REVISTA  (ONCE  NUMEROS 
ANUALES)  SINO  A PARTICI- 
PAR EN  LAS  ACTIVIDADES 
QUE  SE  ORGANICEN  EN 
TORNO  A ELLA  Y QUE 
PUEDEN  SER  COORDINA- 
CION DE  CURSOS  DE  BASIC, 
INTERCAMBIOS  DE  PROGRA 
MAS,  CONCURSOS,  ETC. 


SERVICIO  DE  CINTAS 

De  programas  aparecidos  en  Commodore  Worid. 

Título  del  programa  •. publicado  en  nQ  O 

Título  del  programa  publicado  en  nQ  CU 

Título  del  programa  publicado  en  nQ  CU 

Precio  por  cinta  850  pesetas.  ^ _ . ,.  . 

* _ ..  , _ Gastos  de  envío  75  pesetas.  Forma  de  pago:  solo  por  cheque. 

Precio  por  disco  1.500  pesetas.  r r 9 

Peticionario  

Calle  N9  TELEF 

Población  D.P Provincia  

Progromo  evaluación  de  colegios  sólo,  en  discos.  Programa  para  VIC-20  □ 

Incluyo  cheque  por 7...  pesetas.  Programa  para  C-64  □ 


EJEMPLARES  ATRASADOS  DE  «CLUB  COMMODORE» 

Primera  época  (septiembre- 1982  - enero-1984) 

Para  poder  satisfacer  la  creciente  demanda  de  Club  Commodore,  agotada  en  todos  sus  números,  hemos  puesto  en 
marcha  un  Servicio  para  suministrar  fotocopias  de  los  ejemplares  que  nos  sean  solicitados. 

SERVICIO  DE  FOTOCOPIAS.-  NUMERO  DE  LA  EDICION  SOLICITADA. 


Peticionario:  D 

Calle  N9  TELEF 

Población  D.P.  Provincia 


Forma  de  pago  sólo  por  cheque 


Precio  de  la  edición  fotocopiada:  250  ptas. 


La  colección  completa  del  0 al  15:  2.500  ptas.  + 150  ptas.  por  gastos  de  envío. 
Incluyo  cheque  por ptas. 


mm 


n 


Pedro  Muguruza,  4-8Q  B 
Teléf.:  259  54  78 
MADRID-1  6 


Sant  Gervasi  de  Cassoles,  39-despacho  4 

Teléf.:  212  73  45 

BARCELONA-22 
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Pedro  Muguruza,  4-8Q  B 
Teléf.:  259  54  78 
MADRID-1  6 


Sant  Gervasi  de  Cassoles,  39-despacho  4 

Teléf.:  212  73  45 

BARCELONA-22 
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Clave  para  interpretar  los  listados 


Todos  los  listados  que  se  publican  en 
esta  Revista  han  sido  ejecutados  en  el 
modelo  correspondiente  de  la  gama 
de  ordenadores  COMMODORE.  Para  faci- 
litar la  edición  de  los  mismos  en  la  Revista 
y para  mejorar  su  legibilidad  por  parte  del 
usuario,  se  les  ha  sometido  a ciertas  modifi- 
caciones mediante  un  programa  escrito 
especialmente  para  ello.  Para  los  progra- 
mas destinados  a los  ordenadores  V1C-20  y 
COMMODORE  64,  en  los  que  se  usan  fre- 
cuentemente las  posibilidades  gráficas  del 
teclado,  se  han  sustituido  los  símbolos  grá- 
ficos que  aparecen  normalmente  en  los  lis- 
tados por  una  serie  de  letras  entre  corchetes 
[]  que  indican  la  secuencia  de  teclas  que  se 
deben  pulsar  para  obtener  el  carácter 
deseado.  A continuación  se  da  una  tabla 


para  aclarar  la  interpretación  de  las  indica- 
ciones entre  corchetes: 

[CRSRDJ  = léela  cursor  hacia  abajo  (sin 
SHIFT) 

[CRSRU]  = Tecla  cursor  hacia  arriba  con 
SHIFT) 

fCRSRR]  = Tecla  cursor  a la  derecha  (sin 
SHIFT) 

[CRSRLJ  = Tecla  cursor  a la  izquierda  (con 
SHIFT) 

[HOME]  = Tecla  CLR/HOME  (sin  SHIFT) 
[CLR]  = Tecla  CLR/HOME  (con  SHIFT) 

Las  indicaciones  [BLK]  a [VEL]  corres- 
ponden a la  pulsación  de  las  teclas  de  1 a 8 
junto  a la  tecla  CTRL.  Lo  mismo  sucede 


con  [RVSON]  y [RVSOF]  respecto  a la  tecla 
CTRL  y las  teclas  9 y K). 

El  resto  de  las  indicaciones  constan  de  la 
parte  COMM  o SHIF  seguidas  de  una 
letra,  número  o símbolo  — por  ejemplo 
[COMM+]  o [SHIFA] — . Esto  indica  que 
para  obtener  el  gráfico  necesario  en  el  pro- 
grama deben  pulsarse  simultáneamente  las 
teclas  COMMODORE  (la  que  lleva  el  logo- 
tipo) o una  de  SHIFT  y la  tecla  indicada 
por  la  letra,  el  número  o el  símbolo,  en  el 
ejemplo  anterior:  COMMODORE  y T o 
SHIFT  y A,  respectivamente. 

En  los  signos’gráficos  además  se  cuenta 
el  número  de  veces  que  aparece.  Por  ejem- 
plo, [7  CRSRRJ  equivale  a 7 pulsaciones  de 
la  tecla  cursor  a la  derecha  y [3  SPCJ  tres 
pulsaciones  de  la  barra  espadadora.  ■ 


METEDURAS  DE  PATA 


En  el  número  § metimos  tres  veces  la  pata: 

• En  el  programa  “ARACNIDA"  (pág.  34),  aparece  “[ERROR|  * en  las  líneas  60  y 20296,  en  las  dos  ocasiones  debería  haber  aparecido 
“[CTRL  C]'\  es  decir  la  tecla  de  control  y la  letra  C. 

• En  la  excursión  por  la  microprogramación  (pág.  74),  se  intercambiaron  los  términos  en  uno  de  los  equivalentes  BASIC:  decía  POKE  A, 
4097  y debía  decir  POKE  4097,  A. 

• En  el  anuncio  de  DEL  I ABIT  (Pág.  50)  se  nos  coló  el  “duendecillo  de  las  erratas"  y nos  cometió  dos.  EN  la  línea  donde  dice  Primer 
Buffer...,  debería  de  decir  Printer  Buffer...  y en  la  línea  donde  dice  Wordprocessor+Manuel  (casete),  debería  decir:  Wordprocessort- Ma- 
nual (cassette).  Esperamos  que  en  este  número  el  “duendecillo"  esté  ya  con  las  vacaciones. 


MEA  CULPA 

Error  en  el  listado  del  programa  de  conversión  del  Kernal  02  a 03 


Por  aquellas  cosas  que  siempre  pasan  a pesar  de  todas  las  pre- 
cauciones para  que  no  pasen,  el  mes  pasado  se  colaron  unos 
errores  en  la  transcripción  del  programa  en  BASIC  que  actua- 
liza la  revisión  de  ROM  del  COMMODORE  64  (de  -02  a-03). 
Los  errores  consisten  en  la  desaparición  del  listado  de  los  signos 
” y “ ”,  con  lo  que  ciertas  sentencias  IF...  THEN  queda- 


ron totalmente  inoperativas,  y que  las  líneas  210  y 220  se 
mezclaron. 

Para  redimir  este  bug,  reproducimos  a continuación  todo  el 
programa  de  nuevo  (esperamos  que  esta  vez  salga  bien)  y pedi- 
mos mil  perdones  por  el  tiempo  que  os  hayamos  hecho  perder. 


100  REM  ***  COPIft  DE  ROM  H RRM  *** 

110  REftD  D : D1=D  : CH=0 

120  REÑD  X : IF  XC256  THEN  POKE  D,  X : CH 

=CH+XD=D+1 : GOTO 120 

130  IF  XOCH  THEN  PRI  NT  " ERROR!  SPCJ  DE 

CSPCDCHEKSUM" : STOP 

140  SVSD1 

150 

200  REM***  MODIFICRR  BVTES  *** 

210  REHD  X: IF  XC256  THEN  POKE  lo  X D= 
D+l : GOTO  210 

220  IFX0999  THEN  D=X  : D=D+1  : GOTO  210 
230  : 

300  REM***  RCTIVR  RRM  *** 

310  POKE 1 , 53 
320  END 
330  i 

400  REM***  RUT  I Nfi  DE  COPIR  *** 

410  DRTR  828 


420  DRTR  160,.  0,  132,2.  163. 160. 133.  3.  1 
77,2, 145,2,200,208,243 
430  DRTR  230,3,165,3,208,1,36,201,13 
2 , 208 , 238 ,169, 224 , 208 , 232 

440  DRTR  4120 
450  : 

500  REM***  BVTES  R CRMBIRR  **# 

510  DRTR  58540,123 

520  DRTR  58573,  133,  163,  163,  1 , 133,  1 7’  1 

,36, 173, 134,2 

530  DRTR  58748,32,240,233,163,33,232 

, 180,217,48,6,24, 105,40,232, 16 

540  DRTR  58763 , 246 , 1 33 ,213, 76 , 36 , 234 

,228,201 , 240 , 3 , 76 , 237 , 230 , 36 , 234 

550  DRTR  58314,145,223 

560  DRTR  59911,32,218,228, 169,32, 145 

,203, 136, 16,246,36,234 

570  DRTR  61332,76,211,228 

580  DRTR  65408,3 

530  DRTR  333 


I 
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STRINGS 


Este  artículo  te  ayudará  a desenredar  el  misterio  de  los  “strings 


evitar  una  duplicación.  Con  1(X)  clientes  en 
un  “array",  C$,  y el  nuevo  comprador,  N$, 

FOR  X=1  TO  100 

IF  N$  CS(X)  THEN  NEXT  X 

hará  que  el  ordenador  compruebe  el  nuevo 
nombre  con  los  de  la  lista.  Si  no  se  encuen- 
tra en  la  lista,  se  terminará  el  bucle  For- 
Next  y llevará  a cabo  el  siguiente  comando 
— agregar  el  nuevo  nombre  a la  lista. 

Mientras  que  los  signos  ‘‘igual  a"  y “no 
igual  a”  son  bastante  sencillos,  el  uso  de 
“menor  de"  y “mayor  de"  con  los 
“strings"  resulta  técnicamente  más  compli- 
cado. Cuando  indiques  al  ordenador  que 
compare  letras,  lo  que  hace  realmente  es 
comparar  números,  utilizando  códigos 
CHR$,  así  que  A<B,  K<=^M,  Z>V  Y V^R. 

El  ordenador  compara  los  “strings" 
mirando  las  letras  una  por  una,  compa- 
rando la  primera  letra  de  las  palabras,  a 
continuación  la  segunda  letra,  etc.:  AL- 
PHA^BETA;  GRAMMA^>DELTA.  Cuan- 
do un  “string"  se  queda  sin  caracteres,  es 
“menor  que"  un  “string"  más  largo  que 
empiece  por  las  mismas  letras:  ASP-^AS- 
PEN. 

Como  te  habrás  dado  cuenta,  los  opera- 
dores de  relación  son  el  núcleo  de  cualquier 
rutina  de  clasificación  en  orden  alfabético. 
La  siguiente  rutina  corta  escribirá  dos 
palabras  en  orden  alfabético: 

10  1NPUT  A$,B$ 

20  IF  A$-^CS  THEN  PRINT  A$,B$ 

30  IF  B$-^A$  THEN  PRINT  B$,A$ 


Para  muchos  principiantes,  un  “string" 
es  simplemente  una  palabra  o frase 
que  se  escribe  en  la  pantalla  y que 
luego  puede  ser  olvidada.  Sin  embargo,  el 
programador  con  más  experiencia  se  da 
cuenta  de  la  flexibilidad  de  los  “strings": 
pueden  ser  comparados,  agregados,  clasifi- 
cados, divididos,  medidos  y convertidos  en 
número,  y gercral mente  ayudan  a confeccio- 
nar un  programa  más  sofisticado. 

Comparación  do  los  “Strings” 

La  comparación  de  los  “strings"  se 
realiza  con  tanta  frecuencia  (IF  A$=B$ 
THEN  PRINT  “CORRECTO!")  que  proba- 
blemente no  te  has  dado  cuenta  que  estás 
utilizando  un  símbolo  normalmente  usado 
en  las  matemáticas.  Si  el  signo  “igual  a"  (=) 
puede  ser  utilizado  con  los  “strings",  tam- 
bién se  pueden  usar  los  otros  operandos 
relacionados^  ,<,<!>( mayor  de,  menor 
de,  no  igual  a). 

El  uso  decaes  bastante  obvio:  IF 
A$-^B$  THEN  PRINT“lNCORRECTO". 
Aunque  la  comprobación  de  los  “strings" 
para  ver  si  son  iguales  o no  tiene  una  apli- 
cación evidente  para  los  juegos  de  pregunta- 
respuesta,  las  comparaciones  igual/no 


Una  de  las  funciones  de  los  “strings"  mas 
sencillas  en  los  Commodore  es  LEN,  que 
mide  la  longitud  de  un  “string".  LEN(AS) 
te  proporciona  el  número  de  caracteres  en 
A$. 

LEN  puede  ser  utilizado  para  comprobar 
que  la  persona  usando  el  teclado  esté 
siguiendo  las  instrucciones: 

10  PR1NT“ENTRA  UNA  PALABRA 
DE  CINCO  LETRAS" 

15  1NPUT  A$ 

^5  THEN  GOTO  15 


20  IF  LEN(A$) 
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El  programa  no  continuará  hasta  que  se 
introduzca  una  palabra  de  cinco  letras. 

LEN  también  puede  ser  utilizado  para 
centrar  una  palabra  o una  frase  en  la  panta- 
lla. La  mitad  del  “string”  debe  escribirse 
antes  de  la  columna  central.  Teniendo  esto 
en  cuenta,  puedes  fijar  la  TAB  según  la 
longitud  del  “string”. 

10  FOR  N=1  TO  6 
15  READ  A$:PRINT 
TAB(  20-LEN(A$)/2)A$ 

20  NEXT  N 

25  DATA  ESTAS,  PALABRAS,  ESTAN, 
CENTRADAS,  VERDAD? 

Partición  de  cadenas  (“Slidng”) 

La  partición  es  la  técnica  más  flexible  de 
todas  las  de  manejo  de  los  “strings”.  La 
partición  de  un  “string”  significa  tomar 
una  parte. 

LEFTS  toma  la  primera  parte  de  un 
“string”,  RIGHTS  empieza  desde  el  final,  y 
MIDS  toma  una  parte  del  centro.  Con 
LEFTS  y RIGT$,  tienes  que  especificar  el 
número  de  letras  que  quieres;  con  MIDS, 
tienes  que  indicar  la  posición  de  la  letra 
inicial,  más  el  número  de  caracteres  que 
quieres.  Si  no  utilizas  un  segundo  número 
con  MIDS,  el  ordenador  supone  que  quie- 
res el  resto  del  “string”.  Por  ejemplo: 
A$=RE  ACCION 
LEFTS(AS,5)=REACC 
RIGHT$(A$,2)=ON 
MID$(A$,3,3)=ACC 
MID$(A$,3)=  ACCION 
Prueba  la  combinación  de  partición  y 
concatenación: 

10  A$=“GODSON”:  BS=“GRAND- 
FATHER” 

15  C$=LEFTS(A$,3)+R1GHT$(B$,6) 

20  D$=LEFT$(B$,5)+RIGHTS(AS,3) 

25  PRINT  A$,B$,C$,D$ 

La  participación  es  una  herramienta 
enormemente  útil.  Para  catalogar  los  libros 
de  tu  biblioteca  personal,  podrías  utilizar 
un  “string"  que  incluye  el  autor,  un  título 
abreviado  y un  código  de  dos  letras  para  el 
tipo  de  libro:  ciencia  ficción,  clásico,  cien- 
cia informática,  novelas,  etc. 

Asimov,  Foundation-SF 
Twain,  Conn,  Yakee-CL 
Harrison,  Byteing-CS 
Ludlum,  Matarese-NV 

Mediante  el  uso  de  RIGHT$(B$,2),  le 
indicas  al  ordenador  que  mire  solamente  el 
tipo  de  letra;  la  incorporación  de  esto  en 
una  rutina  de  clasificación  te  proporciona 
un  inventario  por  categorías. 

La  partición  de  los  “strings”  propor- 
ciona unos  efectos  interesantes  en  pantalla, 
como  la  representación  de  una  palabra 
letra  por  letra.  (Obviamente,  siempre  fun- 
ciona así,  pero  demasiado  de  prisa  para  que 
tú  lo  veas.)  Prueba  lo  siguiente: 

10  A$=“DESPACIO” 

20  PRINT  LEFT$(A$,1 );  GOSUB  80 
30  FOR  L=2  TO  7 

40  PRINT  MID$(A$,  L,l);:GOSUB  80 
50  NEXT  L 

60  PRINT  RIGHT$(A$,1):END 
80  FOR  T=1  TO  750:  NEXT:RETURN 


La  línea  20  escribe  la  primera  letra  en  la 
pantalla;  la  línea  40  escribe  cada  una  de  las 
letras  siguientes;  y la  línea  60  escribe  la 
última  letra.  Los  puntos  y comas  detrás  de 
los  paréntesis  en  las  líneas  20  y 40  mantie- 
nen la  posición  de  las  palabras  escritas  para 
que  las  letras  se  escriban  en  la  misma  línea. 
La  subrutina  es  simplemente  un  bucle  de 
retraso. 

VAL 

Los  números  dentro  de  los  “strings”  tie- 
nen que  ser  convertidos  en  “valores”  antes 
de  poder  ser  usados  en  cualquier  operación 
matemática.  La  función  VAL  proporciona 
el  valor  de  cualquier  número  dentro  de  un 
“string”,  siempre  que  este  no  vaya  prece- 
dido por  un  símbolo  no  numérico. 

Aunque  los  “strings”  puedan  ser  concate- 
nados, no  pueden  ser  sumados.  La  función 
VAL  te  permite  realizar  sumas  (o  cualquier 
otra  operación  matemática)  con  los  “strings” 
numéricos.  Considera  lo  siguiente: 
AS=“42”:B$=“24” 

AS+BS=“4224” 

VAL(A$)+VAL(B$)=66 
Te  podrías  estar  preguntando  por  qué  un 
número  tiene  que  estar  dentro  de  un 
“string”.  Por  ejemplo,  la  fecha  de  un  cum- 
pleaños que  se  almacena  de  forma  numé- 
rica a veces  necesita  un  cero  inicial.  Por 


ejemplo,  12341  significa  el  23  de  enero  o el 
3 de  diciembre,  1941?  El  ordenador  no 
almacenará  012341  como  número,  pero  sí 
almacenará  “012341”  como  un  “string”. 

Tal  vez  necesites  saber  la  edad  que  tendrá 
una  persona  en  el  año  1993,  cuando  el  plan 
de  jubilación  de  la  empresa  será  sometido  a 
una  modificación  radical.  93-VAL(RIGHT$ 
(A$,2))  te  indicará  que  dicha  persona  ten- 
drá 52  años. 

STR$ 

La  t unción  STR$  complementa  la  fun- 
ción VAL,  dado  que  convierte  un  número 
en  un  “string”. 

Se  puede  usar  para  consolidar  la  infor- 
mación en  un  “string”  fácil  de  almacenar. 
Si  tienes  un  “array”  de  “strings”  (S$)  que 
contiene  los  periféricos  que  te  has  com- 
prado, y un  “array”  numérico  (N)  que  con- 
tiene su  precio,  podrías  convertir  esta 
información  en  un  sólo  “string”: A$(l)= 
SS(  1 )+STRS(N(  1 )) 

El  “array”  AS  podría  parecerse  a lo 
siguiente: 

A$(  I )=“ORDEN  ADOR  80.000” 

A$(2)=“UNIDAD  DE  DISCO  95.000” 

etcétera. 

Se  utiliza  SI  RS  porque  a menudo  los 
“strings”  son  más  fácilmente  manipulados 
que  los  números,  en  la  partición,  por  ejem- 


Listado  del  juego  “ Desorden ”,  una  muestra  de  las  funciones  de  los  “Strings". 

10  PRINT" CCLR3" 

20  PR I NT " ENTRA C SPC ] UNA C SPC ] PALABRA  C SPC  3 
BE [ SPC 3 5 C SPC  3 A C SPC  3 1 0 C SPC  3 LETRAS " 

30  INPUTA* 

40  IF  LEN<A$><5  0R  LENCA* >>10  THEN  P 
R I NT " HE  C SPC 3 B I CH0 C SPC  3 DE  C SPC  3 5 C SPC  3 A 
CSPC3 10CSPC3 LETRAS" = GOTÜ30 
50  B*=A* : LA-LEN < A$  > = LB=LEN C B*  > : C=0 
60  PRINT" CCLR3" 

70  FOR  N=1  T0  LA 
80  R= I NT  < RNB  < 0 > #L A > + 1 
90  S*=S$+MIB$CA$,R,  1) 

1 00  A*=LEFT* < A* , R- 1 > +R I GHT* < A* , L A-R  > 

110  LA=LA-1 ; NEXT  N 
120  PRINTS*: PRINT 

1 30  PR I NT " PULSA  C SPC 3 ' I ' í SPC  3 PARA  C SPC  3 
I NTENTAR , C SPC 3 ' A ' C SPC  3 PARA  C SPC  3 AVUBA 
" : PRINT 

1 40  GETP*  : I FF’*=  " " THEN  1 40 

150  IFP*=" I "THEN 180 

160  C=C+1 : IF  C=LB-1THEN200 

1 70  PR I NTS$ , , LEFT$ C B* , C > = PR I NT  = GOTO 1 

30 

1 80  PR I NT " CUAL C SPC  3 ES  C SPC  3 TU  C SPC  3 1 NT 
ENT0?" : I NPIJTG* : IFGÍOB*  THEN  PRINT"N 
0": PRINT: GOTO 130 
198  PRINT "ACERTASTE" 

200  PR I NT " LA  C SPC  3 PALABRA C SPC  3 ERA [ SPC  3 
" B* 
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►[  LOS  “STRINGS”*  CADENA  PERPETU 

pío,  o en  el  centrado  u otras  alineaciones. 
Probablemente  te  has  dado  cuenta  que  el 
ordenador  alinea  los  números  en  el  margen 
izquierdo. 

43271 

36 

864 

762895 

Si  estos  números  se  colocasen  en  unos 
“strings”,  podían  ser  fácilmente  justifica- 
dos en  el  margen  derecho.  El  siguiente  pro- 
grama convierte  los  datos  numéricos  en 
“strings”  y a continuación  los  manipula  de 
una  forma  semejante  a la  de  la  rutina  de 
centrado  explicada  antes. 

10  FOR  N=1  TO  10 

20  READ  A:A$=STR$( A) 

30  PRINTTAB  (20-LEN(A$))A:NEXT  N 

40  NEXT  N 

50  DATA  34,  5678,39,7,12345,7431, 

8754342,42,9215,6 

Probablemente  te  has  dado  cuenta  de 
que  sería  más  fácil  asignar  cada  dato  direc- 
tamente a A$  c ignorar  STR$.  La  elegancia 
no  era  el  objetivo  principal  de  este  pro- 
grama ejemplo;  simplemente  sirve  como 
una  demostración  de  la  función  STR$.  El 
uso  más  frecuente  de  la  conversión  STR$ 
sería  para  alinear  unos  números  que  tienen 
asignados  unas  variables  numéricas,  tal  vez 
como  parte  de  un  “array”,  para  que  pue- 
dan ser  manipuladas  de  forma  numérica 
cuando  sea  necesario. 

Juegos 

La  partición  de  los  “strings”  se  adapta 


l...  ¿O  NO? 

fácilmente  a los  juegos  de  palabras.  “Desor- 
den” es  un  programa  que  hace  uso  de  todas 
las  funciones  de  los  “strings”  excepto  STR$, 
además  de  la  concatenación.  Incorpora  una 
rutina  de  “desordenar”  diseñada  por  Dam 
Tookmanian. 

“Desorden”  es  para  dos  jugadores.  El 
primero  entra  una  palabra  que  el  ordena- 
dor desordena  y saca  en  pantalla;  el 
segundo  jugador  tiene  que  adivinar  la  pala- 
bra. Puede  pedir  ayuda,  y el  ordenador  le 
indicará  letras  sucesivas  de  la  respuesta 
hasta  que  haya  enseñado  todas  menos  las 
dos  últimas. 

Dado  que  este  juego  sirve  solamente  para 
demostrar  las  funciones  de  los  “strings”, 
constituye  una  versión  bastante  simplifi- 
cada de  un  juego  de  ordenador  — sin  gráfi- 
cos, ni  sonido,  ni  siquiera  la  puntuación! 
Lee  la  explicación  del  programa  y añade  las 
líneas  más  apropiadas  para  que  quede  más 
completo  — la  puntuación  debe  coincidir 
con  el  valor  de  C,  que  cuenta  el  número  de 
pistas  proporcionadas. 

La  línea  40  comprueba  si  la  palabra 
introducida  es  de  la  longitud  correcta.  La 
línea  50  asigna  el  mismo  valor  a BS  que  a 
A$,  dado  que  A$  quedará  destrozada 
durante  el  procedimiento  de  desordenar  la 
palabra  y no  podrá  dar  la  respuesta 
correcta. 

Por  el  mismo  motivo,  se  necesita  LB  para 
representar  la  longitud  de  la  palabra  intro- 
ducida; LA  será  modificada  durante  el  pro- 
ceso de  desordenar.  C servirá  como  conta- 
dor para  el  número  de  veces  que  se  pide 
ayuda. 


Las  líneas  70-110  son  las  rutinas  de  des- 
ordenar. Primero,  se  elige  un  número  alea- 
torio en  algún  sitio  dentro  de  la  longitud  de 
AS.  La  letra  que  ocupa  la  posición  AS  se 
coloca  en  S$,  la  palabra  desordenada. 

En  la  línea  100  la  letra  que  ha  pasado  a 
S$  se  quila  de  AS  al  volver  a definir  AS. 
Ahora  AS  consiste  en  todo  hasta  la  letra 
quitada,  más  todo  lo  que  vaya  detrás.  LA 
se  decrementa  por  uno  porque  AS  se  queda 
más  corta  por  un  carácter,  y otro  número 
aleatorio  tiene  que  ser  elegido  dentro  de  los 
límites  correctos. 

Este  procedimiento  se  repite  hasta  que 
todas  las  letras  hayan  sido  transferidas  al 
azar  de  AS  a SS.  (Ten  en  cuenta  que  el  bucle 
For-Next  está  fijado  para  igualar  el  número 
de  caracteres  en  AS.)  Ahora  AS  es  un 
“string”  vacío,  y lo  que  diga  el  jugador  será 
comparado  con  BS. 

Si  el  jugador  pide  ayuda,  C se  incrementa 
por  uno  en  la  línea  160,  y si  se  da  ayuda 
tantas  veces  de  modo  que  sólo  quedan  dos 
letras  sin  descubrir,  el  juego  termina.  Dado 
que  C se  incrementa  en  esta  línea,  LB-1 
comprueba  si  faltan  dos  letras.  Fíjate  en  el 
uso  de  LB  en  vez  de  LA,  que  iguala  cero 
después  de  la  rutina  de  desordenar. 

En  la  línea  170,  BS  se  divide  para  que  sea 
igual  al  número  de  veces  que  se  ha  pedido 
ayuda  hasta  el  momento.  Cada  vez  que  un 
jugador  intenta  adivinar  un  número,  este 
(G$),  se  compara  con  B$.  Una  respuesta 
incorrecta  vuelve  a enviar  el  programa  a la 
línea  130,  mientras  que  una  respuesta 
correcta  es  reconocida.  ■ 


NOTICIAS  COMMODORIANAS 

¡Un  respeto  al  público,  por  favor! 


Sinclair  lira  para  casa... 

...Y  esto  nos  parece  muy  bien,  muy  bien,  siempre  y cuando  no  se  perjudi- 
que a otras  marcas  informando  mal  al  gran  público.  Esto  es  exactamente  lo 
que  pasó  el  domingo,  día  17  de  junio  por  la  mañana  en  un  programa  de 
radio  (Radio  Cadena  E.,  88.200  KHz  FM)  patrocinado  por  Investrónica.  A 
continuación  presentamos  una  transcripción  de  parte  del  programa  seguida 
de  nuestra  réplica  y que  nuestros  lectores  juzguen  por  sí  mismos. 

Programa  “Sólo  Ordenadores” 

“Sobre  la  consulta  de  un  oyente  invidente: 

...Quería  saber  algo  que  pudiese  conectar  a su  C-64  para  que  la  salida  de 
pantalla  se  pudiese  escuchar  simultáneamente  por  el  altavoz  del  monitor. 
RESPUESTA:  En  este  caso  tenemos  que  decirle  que  tal  y como  le  habíamos 
comentado  a el  y cualquier  otra  persona  que  se  interese  sobre  el  tema,  existe 
un  sintetizador  de  voz  comercializado  por  Commodore  en  forma  de  disco,  es 
decir,  es  un  programa  que  tiene  ...eh...  bueno...  como  utiliza  simplemente  los 
generadores  de  ruido  y de  sonido  de  que  dispone  el  Commodore  64,  lógica- 
mente no  se  consigue  un  alto  nivel  de  inteligibilidad,  aunque  naturalmente 
...eh...  la  calidad  ...eh...  bueno,  pues  es  suficiente  para  determinado  tipo  de 
aplicaciones.  No  es  este  el  caso  en  que  el  oyente  nos  comentaba  que  se  le 
quedaba  demasiado  corto  en  cuanto  a prestaciones  para  lo  que  el  quería,  y le 
ofrecimos  hacer  una  gestión  en  Inglaterra  por  medio  de  un  compañero  que 
marchaba  para  Londres  y que  ha  regresado  a lo  largo  de  esta  semana...  eh... 
tenemos  que  ...en  fin,  lamentamos  tener  que  informarle  que  no  hemos  con- 
seguido una  información...  digamos  definitiva,  parece  que  todo  se  queda  en 
rumores.  Hay  algunas  casas  que  han  construido  sintetizadores  de  voz,  pero 
curiosamente  están  más  enfocados  hacia  el  Sinclair  Spectrum  que  hacia  el 
Commodore  64.  La  única  información  que  podemos  darle,  como  digo,  es  la 
de  estas  casas,  y...  bueno,  como  ya  no  coincide  exactamente  con  lo  que  nos 
pedía,  si  realmente  sigue  interesado  en  el  tema,  pues  podemos  darle  la  direc- 
ción de  la  gente  en  Inglaterra,  aunque  insistimos,  ellos  no  tenían  nada  para  el 
Commodore  64,  al  menos  esta  es  la  información  que  hemos  podido  recoger 
a través  de  este  compañero,  que  como  digo  marchó  para  Londres”. 


(transcripción  íntegra  de  la  grabación  realizada  en  magnetofón  por  Diego  de 
“ Commodore  World"). 

Deseamos  formular  nuestra  más  enérgica  protesta 

La  primera  obligación  de  todo  periodista  es  proporcionar  una  informa- 
ción clara,  concisa  y bien  documentada,  si  no  es  así,  se  presta  a todo  tipo  de 
interpretaciones  y malentendidos. 

Nosotros  no  hemos  tenido  que  fiarnos  de  las  pesquisas  de  ningún  compa- 
ñero en  Londres,  nos  ha  sido  muy  fácil  enterarnos  de  marcas,  distribuidores 
y precios  tanto  en  Inglaterra  como  en  los  Estados  Unidos  de  sintetizadores 
de  voz. 

Por  ejemplo...  concretamente  en  Inglaterra  existe  un  sintetizador  con  el 
nombre  comercial  de  “Speakcasy”  que  sale  muy  bien  de  precio  (30  libras)  e 
incluye  un  vocabulario  sin  límites  mediante  el  uso  de  alófonos,  resulta  fácil 
de  usar  tanto  en  programas  escritos  en  Basic  como  en  programas  escritos  en 
código  máquina,  dispone  de  una  fuente  de  energía  directa  del  mismo  orde- 
nador, altavoz  incorporado,  y se  adapta  a cualquier  marca  de  ordenador 
simplemente  cambiando  el  cable. 

Y por  ejemplo...  en  los  Estados  Unidos  (fabricado  por  el  Alien  Group) 
tenemos  el  “Voice  Box”  para  el  C-64  y el  VIC-20.  Aparte  de  incluir  todas  las 
características  de  un  sintetizador  de  voz,  dispone  de  un  programa  opcional 
que  convierte  el  C-64  en  un  sintetizador  de  música. 

Y por  ejemplo...  la  misma  casa  Commodore  comercializa  el  “Magic 
Voice”  y el  disco  “Magic  Voice  Vocabulary”  que  contiene  un  vocabulario  de 
10.000  palabras  y capacidad  para  almacenar  palabras  del  mismo  usuario. 
Aunque  todavía  no  están  a la  venta  en  España,  no  existe  ningún  problema  en 
pedirlos. 

Y estos  son  sólo  algunos  ejemplos  sacados  a toda  velocidad  al  cierre  de  la 
revísta  (ver  fecha  del  programa  más  arriba).  Lo  que  queda  claro  es  que 
“intereses”  hay  de  todos  tipos:  económicos,  creados  y adquiridos,  pero  en 
cualquier  caso  exigimos  una  ética  y el  derecho  de  réplica. 

Que  conste  que  nuestro  interés  es  solamente  el  que  debe  ser  obligatorio 
para  cualquier  medio  de  comunicación:  el  interés  de  mlormar. 
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COUUMHAS 


80  columnas 

• Tarjeta  VIC-20  40/80  columnas 

• Tarjeta  COMMODORE  64 
80  columnas 

• Tarjeta  VIC-20 
Ampliación  de  memoria 
64  K-  RAM 


Slots  de  expansión 
para  VIC-20  y 64 
de  2 y 5 para  conexión 
de  tarjetas 


^¡g*§ 


Cuidado  con  las 
imitaciones.  Sólo  son 
nuestras  tarjetas  si  van 
debidamente  protegidas 
con  caja  y garantizadas. 


\ 


DISTRIBUIDORES  EXCLUSIVOS  PARA  TODA  ESPAÑA 


PEDIDOS  DISTRIBUIDORES  COMMODORE 


PEDIDOS  USUARIOS 


FERRE-MORET,  S.  A. 

Sección  Hardware  y software 
Tel.  93/  250  84  40/  Contestador  Aut. 
Escribir  At.  Director  Comercial 
C/.  Buenos  Aires  n.°  30  2o  3a 
BARCELONA-36 


FERRE-MORET,  S.  A. 

Tel.  93/  250  84  40/  Contestador  Aut. 
Escribir  indicando  la  sección 
C/.  Buenos  Aires  n.°  30  2o  3a 
BARCELONA-36 
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! RIESGOS?...  NO  GRACIAS 


No  te  arriesgues  más  con  programas  importantes. 

Este  programa  para  copiar  programas  evita  los  riesgos  y da  más  seguridad. 


mena* 


Los  usuarios  de  la  unidad  de  discos 
1541  saben  que  algunos  programas 
no  pueden  ser  copiados  en  otros  dis- 
cos utilizando  los  métodos  normales.  El 
programa  utilitario  “Copiador"  te  ayudará 
a solucionar  este  problema. 

Un  programa  escrito  en  Basic  puede  ser 
cargado  de  disco  y se  puede  volver  a salvar 
en  un  disco  diferente  insertado  en  la  uni- 
dad. Además,  esto  puede  funcionar  con 
algunos  programas  escritos  en  lenguaje 
máquina,  pero  sólo  con  algunos  — y no  con 
ficheros  de  datos — . 

Muchas  veces  los  usuarios  que  se  acaban 
de  comprar  una  unidad  de  discos  1541 
intentan  copiar  el  programa  DOS  WEDGE 
que  viene  gratis  con  la  unidad.  Este 
“wedge"  viene  en  dos  partes:  el  programa 
mismo  en  lenguaje  máquina  (nombre  de 
fichero  DOS  5. 1 .)  y un  corto  programa  car- 
gador escrito  en  Basic  (nombre  de  fichero 

C-64  WEDGE  o DOS  WEDGE  64). 

Es  fácil  copiar  en  disco  el  programa  car- 
gador y cualquier  programa  escrito  en 
Basic  pero  no  se  puede  utilizar  el  mismo 
método  para  copiar  programas  escritos  en 
lenguaje  máquina,  y esto  es  precisamente  lo 
que  hace  el  “copiador". 


Maniobras  de  Memoria 

La  idea  general  de  la  operación  del 
“copiador"  es  muy  sencillo.  Primero  el 
programa  se  copia  desde  el  disco  en  un 
“array"  de  memoria.  Se  inserta  el  nuevo 


VIC  20  ó C-64 
UNIDAD  DE  DISCOS 


100  II I Mfi$  <1 50  > 

200  PR I NT " C CLR  3 PROGRAMA  C SPC 3 OOP  I ADOR 


II 


210  PRINT 

300  I NPUT " I NSERTA C SPC 3 D I SCO  C SPC 3 QR LG 
INAL..  RETURN" ; A$ 

310  PRINT 

400  I NPIJT  " NOMBRE  C SPC  3 DE  t SPC  3 F I CHEPO " 

Ni 

410  I NPIJT " T I PO C SPC  3 DE C SPC 3 F I CHEPO í SPC  3 

<S/P..u>";fs 
420  PRINT 
1 000  OREN 15/8,1 5 

1 1 00  0PEN2 , 8 , 2 , " 0 : " +N$+ " , " +FÍ+ " , R " 

1 200  GOSUB600Q 
2000  1=1 : j=0 
2100  GET#2,ñ$ 

2200  I FRi= " " THENA$=CHRÍ < O > 

2300  Ai< J>=AÍ< J)+Ai 

2400  I FST O0THENCLOSE2 ; GOTO3000 

2500  1=1+1 : IFI >254THEN 1=1 : J= J+ 1 PR I N 

TJ; 

2600  GOT 02 1 00 
3000  PRINT 
3010  PRINT 

3100  I NPUT " I NSERTH C SPC  3 D I SCO [ SPC 3 DES 
TINO, RETURN" , fli 
3200  PRINT# 15, "I" 

4000  0PEN2 , 8 , 2 , "§0  : "+NÍ+" , "+FÍ+",H" 
4100  GOSUB6000 
5000  FORX=0T 0 J 
5100  PRINT#2,  A$00 ; 

5200  NEXTX 
5309  CL0SE2 
5400  GLOSEIS 
5500  END 

6000  I NPUT# 1 5 , EN , EM$ / ET , ES 

6100  I FEN=0THENRETURN 

6200  PRINT " ERROR C SPC 3 EN [ SPC 3 D I SCO " 

6300  PRINTEN/ENÍ/ET/ES 

6400  CL0SE2 

6500  GLOSEIS 

7000  REM 

7001  REM 

7002  REM 

7003  REM 


JOHN  OLSEN 
P.O.BOX  181 
NEWBERG,  OR  97132 

Lisiado  del  programa  “ Copiador  " 
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disco  y el  contenido  del  “array”  del 
“copiador”  puede  contener  hasta  150 
bloques. 

tiste  programa  funciona  tanto  en  el  VIC- 
20,  como  en  el  C-64,  pero  dado  que  el  VIC 
dispone  de  menos  capacidad  de  memoria, 
solamente  programas  cortos  pueden  ser 
copiados.  Para  poder  ejecutarlo  en  el  VIC- 
20,  el  tamaño  del  “array”  en  la  línea  100 
tiene  que  ser  modificado  para  que  no  resul 
le  en  un  error  “out-of-mcmory”. 

Detalles  del  programa 

La  línea  100  reserva  espacio  para  150 
bloques  en  el  “array”  AS.  (Cada  bloque 
contiene  254  bytes  de  datos  del  programa), 
ti  programa  que  se  está  copiando  quedará 
almacenado  en  este  “array”  mientras  se 
intercambian  los  discos  en  la  unidad.  Las 
líneas  anteriores  a 1000  no  necesitan  nin- 
guna explicación. 

Las  líneas  1000  y 1100  abren  el  canal  de 
comandos  a la  unidad  y abren  el  fichero 
que  será  copiado.  La  linea  1200  comprueba 
si  existe  algún  error  en  disco. 

Las  líneas  dos  mil  leen  el  programa  byte 
por  byte  y lo  colocan  en  bloques  de  254 
bytes,  almacenados  en  el  “array”  A$.  La 
línea  2100  lee  el  byte.  La  línea  2300  lo 
añade  al  bloque  en  el  “array”. 


Tal  vez  este  programa  utilitario 
resulte  un  poco  lento, 
pero  evita  problemas  al  copiar 
programas. 


La  línea  2400  comprueba  el  estado  para 
ver  si  se  ha  llegado  al  final  del  programa. 
Si  se  ha  llegado  al  final  del  programa,  el 
fichero  se  cierra.  Si  no,  se  incrementa  el 
contador  1.  Si  el  bloque  está  lleno  se  inicia 
un  bloque  nuevo. 

La  línea  2200  se  encarga  de  un  caso  espe- 
cial leyendo  un  byte  del  disco.  Si  el  byte  es 
un  cero,  la  sentencia  Get  2 lo  lee  como  un 
“string”  nulo  (vacío).  Cuando  este  se 
vuelve  a escribir  en  disco,  la  sentencia 
Print#2  no  escribe  nada,  y tu  problema 
pierde  de  repente  un  byte  importante. 

Para  corregir  este  problema,  cualquier 
cero  se  convierte  en  un  “string”  de  caracte- 
res de  cero  cuando  se  escribe  en  el  bloque. 
Por  lo  tanto,  cuando  se  vuelve  a escribir  en 
disco,  se  escribe  el  cero. 

Las  lineas  de  tres  mil  le  indican  al  usua- 
rio que  intercambie  los  discos  y que  inicia- 
lice  el  disco  nuevo.  Si  quieres  copiar  el  pro- 
grama en  el  disco  nuevo  bajo  un  nuevo 
nombre  de  fichero,  se  inserta  la  linea: 


3300  INPUP'NUEVO  NOMBRE  DE  FI- 
CHERO”; N$ 

De  esta  forma  se  puede  utilizar  un  nuevo 
nombre  de  fichero.  Si  no  hace  falta  cam- 
biarlo, se  pulsa  la  tecla  “Return”. 

Las  líneas  de  cuatro  mil  abren  el  fichero 
que  será  escrito  y comprueban  cualquier 
error  de  disco. 

Las  líneas  de  cinco  mil  son  las  que  copian 
el  programa  en  disco.  Cada  bloque  se  lee 
del  “array”  y se  escribe  en  disco  en  el 
mismo  orden  en  que  se  ha  leído  esto  se 
realiza  con  un  bucle  For/Next.  A continua- 
ción se  cierra  el  fichero  — junto  con  el  canal 
de  comandos — y el  programa  termina. 

Las  líneas  de  seis  mil  son  las  subrutinas 
que  comprueban  los  errores  de  disco.  F.I 
programa  comprueba  el  canal  de  coman- 
dos, y si  no  encuentra  ningún  error  (EN=0), 
vuelve  al  programa  principal.  De  no  ser  así, 
imprime  el  número  del  error,  el  mensaje,  la 
pista  y el  sector,  cierra  el  fichero  y se  acaba. 

La  ejecución  del  programa  resulta  bas- 
tante lenta,  dado  que  tiene  que  leer  byte  por 
byte.  La  segunda  mitad  del  programa, 
donde  se  realiza  la  copia,  funciona  mucho 
más  deprisa,  dado  que  se  escriben  bloques 
enteros  (sectores  del  disco).  Una  versión 
más  rápida  aún  podría  ser  escrita  en  len- 
guaje ensamblador.  Pero  este  es  un  ejercicio 
para  un  programador  más  avanzado.  ■ 
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Centro  COMMODORE  (sakati,  s.a.) 

NOTICIAS  DE  SOFT 


LISTA  DE  PROGRAMAS  PARA  SU  COMMODORE  64 

MANUALES  EN  CASTELLANO 


SOFTWARE  PROFESIONAL 

Teléf.:  256  77  94, 

Ardemans,  24  Télex  42222  CICI  E 


Madrid-28 


Programas  de  aplicación 

Superbase  64 

Base  de  datos  II 
Busicalc 

Control  de  almacén 

Mailing 

Lápiz  óptico 

Monitor  código  máquina 
Desensambledor 


disco 

disco 

cinta 

disco 

cinta 

disco 

disco 

disco 

cinta 

disco 

cinta 

cinta 


cartucho 

disco 

cinta 

disco 

cinta 

cinta 

cinta 

cartucho 

cinta 

disco 

cinta 


25  000  Pts. 

5.000  Pts. 

4.000  Pts 

8.000  Pts. 
7 500  Pts 

2 000  Pts. 
2 000  Pts 
12.000  Pts. 

3.000  Pts. 

7.500  Pts. 
6 900  Pts. 


Centro  COMMODORE 


22  500  Pts. 


5 000  Pts. 
4.000  Pts. 


8.500  Pts. 
8.000  Pts. 

35.000  Pts. 

8.000  Pts. 


14.000  Pts 
13.500  Pts. 


6.500  Pts 
6 000  Pts. 


2.000  Pts. 


Programas  de  utilidades 

Extensión  de  basic 

Música  64 


Gráficos  64 


Velosak 

Tagsort 

Arrow 

Compactor 

Superbasic 


Programas  de  juegos 

Palillos 

Cakius 

Aterrizaje 

Comecocos 

King  Kong 

Laberinto 

Comando  espacial 


Araña  lunar 
Defensa  lunar 
El  lago  de  los 
tiburones 
El  hortelano 
La  bruja 

Guerra  de  zilones 


r 

I BOLETIN  DE  PEDIDO 

A t?nyar  * SAKATI,  S.  A.  Ardiímarrs,  2¿  MADRID  28 


Tato-  adiu-ic. 
Fíf 


Rpp'nba'so 
F rrn.i 


TOTAL  | 


Batalla  espacial 
Precio  por  cinta 
Precio  en  disco 
Ajedrez  en  cinta 
en  disco 
Jarama  84 
Camellos 


2.000  Pts 
2.500  Pts. 
4 000  Pts. 
4 500  Pts. 


Cdad  T Precio 


SEGUIMOS  CON 
LOS  VICASSOS 

Entra  en  el  mundo  multicolor  de  los 
caracteres  gráficos  con  las  técnicas 
detalladas  en  este  artículo 


V1C-20 

NO  AMPLIADO 


En  la  primera  parte  de  este  artículo 
(“Crear  un  Vicasso”,  COMMO- 
DORE  WORLD,  Mayo  1984)  habla- 
mos de  los  pasos  que  había  que  dar  para 
crear  caracteres  programables  para  llevar  a 
cabo  todas  las  tareas  difíciles.  A lo  mejor  te 
acuerdas  de  que  el  primer  paso  que  hay  que 
dar  es  transferir  64  caracteres  de  la  ROM  a 
la  RAM,  para  que  allí  se  puedan  volver  a 
diseñar.  Cada  uno  de  estos  caracteres  se 
compone  de  64  puntos  (ochos  bytcs  de 
memoria,  con  ocho  bits  por  bytes  y cada  bit 
controlando  un  punto). 


Los  caracteres  multicolores  también  se 
componen  de  64  puntos,  pero  cuando  se 
escriben,  sólo  son  visibles  32  puntos  más 
grandes.  Parece  que  el  ordenador  dispone 
de  un  método  para  saber  los  colores  que 
tiene  que  utilizar,  y esto  lo  hace  agrupando 
los  puntos  en  parejas.  Se  necesitan  dos  pun- 


0 negro 

1 blanco 

2 rojo 

3 cian 

4 púrpura 

5 verde 

6 azul 

7 amarillo 


8 naranja 

9 naranja  claro 

10  rosa 

11  cian  claro 

12  púrpura  claro 

13  verde  claro 

14  azul  claro 

15  amarillo  claro 


Fig.  1.  Pokes  de  color  para  el  VlC-20. 


tos  de  alta  resolución  para  componer  un 
punto  multicolor; 

Haz  la  prueba  introduciendo  POKE 
646,10  y a continuación  teclea  unas  cuantas 
letras.  Las  letras  parecen  extrañas  y son 
difíciles  de  leer  dado  que  cada  punto  es  el 
doble  de  ancho  y son  de  diferentes  colores. 
Ahora  pulsa  las  teclas  CTRL  y 7 para  que 
la  pantalla  se  vuelva  a su  estado  normal. 

Una  forma  de  entrar  en  el  mundo  de  los 
caracteres  multicolores  es  de  introducir 
mediante  un  Poke  en  la  posición  646  un 
número  igual  al  Poke  normal  del  color  de 
carácter  más  8.  De  esta  forma  se  puede 
imprimir  en  la  modalidad  multicolor.  Los 
colores  normales  pueden  ser  restaurados 
mediante  el  uso  de  la  tecla  C TRL  y las 
teclas  de  color  de  forma  normal. 

Los  caracteres  multicolores  pueden  utili- 
zar hasta  cuatro  colores:  la  pantalla,  el 
borde,  los  colores  auxiliares  y de  los  carac- 
teres. Se  fijan  los  colores  para  la  pantalla  y 
el  borde  introduciendo  los  valores  encon- 


00=color  de  pantalla. 

01=color  del  borde 
10=color  del  carácter 
ll=color  auxiliar. 

Fig.  2.  La  combinación  de  los  bits  para  repre- 
sentar los  colores. 


0 

fl 

B 

11111010 

00000000 

00 1 00000 

11111010 

00000000 

00 1 00000 

11111010 

000 1 0 1 00 

00 1 00000 

11111010 

000 101 00 

00 1 00000 

0101 0000 

00 1101 00 

00 1 00000 

0101 0000 

00 1101 00 

00 lili 00 

0 101 0000 

00 110101 

00 lili 00 

0101 0000 

00 110101 

00 1 1 0000 

Fig.  3.  Tres  caracteres  de  color. 

16/Commodore  World  Julio/Agosto  1984 


trados  en  la  página  134  del  “Manual  del 
Usuario”  en  la  posición  36879  mediante  un 
Poke.  El  color  auxiliar,  utilizado  solamente 
para  los  caracteres  multicolores,  también  se 
fija  para  la  pantalla  entera  mediante  el  uso 
de  la  siguiente  fórmula,  donde  X es  igual  al 
Poke  de  color  de  la  figura  1 . 

Poke  36878,  X*16 

El  color  de  carácter  es  el  único  que  puede 
ser  diferente  para  cada  carácter.  Se  fija  de 
la  misma  manera  descrita  antes,  o el  color  o 
(código  de  carácter  normal  más  8 puede  ser 
introducido  en  la  posición  de  color  de  pan- 
talla mediante  un  Poke. 

La  figura  2 muestra  la  combinación  de 
bits  necesaria  para  representar  cada  color. 
Para  demostrar  cómo  funciona  esto,  vamos 
a formar  tres  caracteres  con  los  ejemplos  de 
la  Figura  3. 

Si  dispones  de  un  Generador  de  Caracte- 
res Programables,  lo  puedes  emplear  para 
dibujar  estos  caracteres.  Si  no,  puedes 
teclear  el  programa  corto  del  listado  1.  Al 
ejecutar  cualquiera  de  los  dos  programas, 
pulsa  la  tecla  @ y se  producirá  el  primer 
carácter  de  la  Figura  3.  El  carácter  ha  sido 
dividido  en  cuatro  cajas  pequeñas,  cada 
una  conteniendo  el  modelo  de  bits  para  un 
color  diferente. 

Ahora  se  introduce  POKE  646,13  y se 
teclea  @.  De  repente  los  huecos  del  carácter 
han  sido  rellenados,  y ahora  se  compone  de 
cuatro  bloques  sólidos  de  color.  En  este 
caso,  el  color  auxiliar  es  negro,  el  color  del 
carácter  es  verde,  el  borde  es  cian  y la  pan- 
talla es  blanca.  Ahora  teclea: 

POKE  36878,  10*16:  POKE  646,  13; 
POKE  36879,  24 

PR1NT  CHR$(65):  PRINT  CHR$<66). 

Los  caracteres  A y B han  sido  transfor- 
mados en  el  perfil  de  una  niña. 

El  detalle  no  es  muy  bueno  dada  la  baja 
resolución.  Sin  embargo,  haciendo  una 


combinación  de  colores  y utilizando  el 
color  auxiliar  rosa  para  la  piel  (un  color 
que  antes  no  podía  haberse  utilizado  para 
los  caracteres),  se  crea  una  figura  atractiva 
que  quedaría  bien  en  un  programa  de 
juegos. 

Una  ventaja  del  color  auxiliar  es  que 
permite  la  introducción  de  colores  que  se 
encuentran  fuera  de  la  gama  de  colores  de 
los  caracteres  estandard.  Desafortunada- 
mente, sólo  se  puede  utilizar  un  color  auxi- 
liar para  la  pantalla  entera  a la  vez. 

Como  podrás  ver,  el  truco  de  dibujar  los 
caracteres  multicolores  utilizando  el  Gene- 
rador de  Caracteres  Programables  es 
aprender  a visualizar  cómo  aparecerán  los 
caracteres  después  de  haberles  convertido 
en  caracteres  multicolores  — con  los  puntos 
dobles  convertidos  en  puntos  multicolores 
sólidos. 

Si  esto  resulta  ser  demasiado  difícil,  otro 
método  es  dibujar  el  carácter  como  un 
carácter  sólido,  siempre  manteniendo  los 
puntos  en  parejas.  Al  completarse  el  carác- 
ter, se  utiliza  la  función  de  borrar  de  la  tecla 
F3  para  crear  el  correcto  modelo  de  puntos 
para  los  colores.' Se  realiza  la  prueba  intro- 
duciendo el  Poke  de  color  para  el  carácter 
multicolor  deseado  en  la  posición  646  y 
pulsando  a continuación  la  tecla  CTRL  y 
las  teclas  azules  para  que  la  pantalla  se 


vuelva  a su  estado  normal  antes  de 
continuar. 

Prueba  una  cosa  más,  tecleando  lo 
siguiente: 

PR1NT  CHR$(147):  POKE  646,10: 

FOR  T=0  TO  220:  PRINT  CHR$(64);; 
NEXT. 

Ahora  introduce  los  siguientes  Pokes, 
uno  por  uno. 

POKE  36878,  2*16 


POKE  36879,  25 
POKE  36878,  9*16 

En  cada  caso  la  pantalla  se  convierte  en 
seguida  en  lo  que  parece  ser  un  carácter 
totalmente  distinto.  Esta  acción  instantá- 
nea por  toda  la  pantalla  constituye  otra 
ventaja  de  los  caracteres  multicolores. 

Los  efectos  especiales  que  pueden  ser  uti- 
lizados para  juegos  sólo  son  limitados  por 
tu  misma  imaginación.  ■ 


ADVERTENCIA:  El  Programa  que  aparece  a continuación  debe  añadirse  al  programa 
“Crear  un  Vicasso"  publicado  en  el  número  4 de  “Commodore  World''. 

10  POKE  52,28: P0KE56 , 28 : CLR 

20  FOR  1*7168  TO  7679 : POKE  T.PEEKÍT+ 

25600): NEXT 

30  PGKE36869,  255 

40  REñD  fi:  IF  fl«-l  THEN200 

50  FOR  T=0TO7 : REfiD  B : P0KE7 1 68+H*8+T . 

B : NEXT 

60  GOTO  40 

61  DñTfl  0 ,250, 250, 250,  250 ,.80. 80, 80. 

80 

62  DfiTfl  1 ,0,0,20,20,52,52,53,53 

63  BRTft  2 ,32,32,32,32,32,60,60,48 
200  DflTfl-1 


GES 77o 


* Tueros-  cr  ~~ 
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MUSICA  MAESTRO 

Aunque  tú  no  seas  músico, 

puedes  convertir  tu  C-64  en  maestro  con  este  programa  musical 


El  programa  “Música  Maestro’*  hace 
que  el  Commodore  64  produzca 
música.  Este  programa  facilita  la 
tarea  de  añadir  melodías  y canciones  a tus 
propios  programas. 

Si  no  sabes  nada  sobre  el  interface  de 
sonido  (SIL)),  Voz  l,  2 ó 3 la  diferencia 
entre  C#  y CJ,  aquí  tienes  la  solución. 

Si  estas  cosas  tampoco  te  importan 
mucho  y sólo  te  interesa  que  producir  el 
sonido,  este  programa  estaba  escrito  para  tí. 

Pero  no  te  sorprendas  si  acabas  apren- 
diendo bastante  sobre  el  SID. 

Teclea  el  programa  tal  y como  viene  en  el 
listado  (Ten  cuidado  de  no  omitir  los  pun- 
tos y comas).  Salva  el  programa  antes  de 
ejecutarlo. 

Ahora  ejecuta  el  programa.  Primero  apa- 
rece la  página  del  titulo  y alguna  informa- 
ción sobre  el  programa.  Pulsa  la  barra  del 
espacio  para  empezar. 

La  siguiente  pantalla  te  da  la  oportuni- 
dad de  elegir  y definir  tu  propia  voz  con: 
volumen,  forma  de  ondas,  ataque/decai- 
miento,  sustento/caída  y la  duración  de  la 
nota.  Pulsa  la  tecla  “Return”  y el  programa 


C.-64 


la  asignara  los  valores  preseleccionados  que 
luego  puedes  modificar  para  experimentar, 
si  quieres. 

A continuación  se  presenta  la  pantalla  de 
prácticas.  Cuando  pulsas  la  tecla  A,  la  letra 
aparecerá  en  pantalla,  y escucharás  la  nota 
musical  A (octava  4).  Cuando  pulsas 
shift/A,  escucharás  A # y ambos  caracteres 
aparecerán  en  pantalla.  Lo  mismo  ocurre 
con  A-G.  Todas  las  otras  teclas  son  ignora- 
das excepto  la  P,  las  teclas  de  funciones 
(F1-F8),  la  tecla  INST/DEL,  la  tecla 
“Return”  y la  tecla  de  flecha  arriba. 

La  P es  para  hacer  una  pausa;  cuando 
aparece  no  se  oye  ningún  sonido. 

La  tecla  Hecha  arriba  borra  la  pantalla. 
(Puedes  jugar  con  la  pantalla  entera,  pero 
la  zona  encima  de  la  línea  central  se  reserva 
para  prácticas). 

La  tecla  “Return”  inicia  otra  línea  de 
notas. 

Pulsando  la  tecla  INST/DEL  dos  veces 
se  borra  cada  nota,  una  por  una. 

F3  borra  la  pantalla  de  prácticas  e intro- 
duce el  programa  Música  Maestro.  Se 
borra  toda  la  pantalla  excepto  las  notas  en 
la  zona  de  Prácticas.  Se  presente  un  nuevo 
menú,  ofreciendo  unas  opciones  adicionales. 

F7  vuelve  al  principio  donde  tu  seleccio- 
nas y defines  la  forma  de  las  notas. 

Juega  con  la  pantalla  de  prácticas  todo  el 
tiempo  que  quieras.  Cuando  consigues  una 
canción  o una  serie  de  notas  que  te  gustan, 
pulsa  F3  y pasarás  a la  pantalla  de  opciones 
de  imprimir  y tocar. 

Imprimir  y tocar 

Aquí  es  donde  se  realiza  todo  el  juego  y 
el  trabajo.  Ahora  la  pantalla  debe  presen- 
tar: 

F1  SOLO  DATOS 
F2  IMPRIMIR  TODO 
F3  PRACTICAR 
F4  IMPRIMIR  NOTAS 
F5  TOCAR  MELODIA 
F6  DURACION 
F7  VOLVER  A EMPEZAR 
P PAUSA  f BORRAR  TODO 

Las  notas  que  queden  por  encima  de 
la  línea  media  (de  la  pantalla  de  prácticas) 
deben  estar  todavía  en  pantalla,  y un 
pequeño  símbolo  de  “mayor  que  debe 
salir  disparado  por  la  pantalla,  borrando 
las  dos  líneas  por  debajo  de  la  línea  media. 

Tus  notas  estarán  colocadas  en  un 
“array”  que  fue  dimensionado  en  la  línea 
15  para  contener  un  máximo  de  200  notas. 
La  mitad  inferior  de  la  pantalla  puede 
representar  unas  200  notas.  Durante  este 
tiempo,  copia  tus  notas  de  práctica  o toca 
otra  cosa. 

Si  quieres  volver  a empezar,  pulsa  la  tecla 
flecha  arriba,  y todas  las  notas  que  acabas 
de  tocar  (excepto  las  notas  en  la  zona  de 


prácticas)  serán  borradas.  Si  pulsas  F3, 
borrarás  todo  y volverá  la  pantalla  de 
prácticas. 

Después  de  componer  una  melodía  en 
pantalla,  pulsa  F5,  y tu  melodía  sonará 
como  si  fuese  parte  de  un  programa.  (Nota: 
C,  C,  C,  hará  sonar  la  C para  una  duración 
de  tres  notas.  Si  quieres  escuchar  la  nota  C 
tres  veces  distintas,  toca  C P C P C). 

Cuando  funciona,  suena 

Cuando  tu  melodía  suena  bien,  pulsa  F2 
(asegúrate  de  que  la  impresora  esté  prepa- 
rada) y el  programa  imprimirá  el  listado 
total  del  programa.  Para  utilizarlo  lo  único 
que  tienes  que  hacer  es  copiarlo  en  un  pro- 
grama. Todo  se  encuentra  allí  — cada  Poke, 
cada  Read,  cada  bucle  For...Next  y cada 
dato. 

Sin  embargo,  a lo  mejor  tendrás  que 
hacer  alguna  modificación  al  copiar  los 
datos.  El  programa  lista  todos  los  datos  en 
una  sola  línea.  Si  tu  melodía  requiere  más 
de  una  línea  de  datos,  simplemente  añade 
otro  número  de  línea  de  datos  y continúa. 

F1  imprime  solamente  los  datos  necesa- 
rios para  la  melodía.  Más  tarde,  tú  proba- 
blemente elegirás  esto  con  más  frecuencia 
(para  ahorrar  papel). 

F'4  imprime  las  notas/letras.  (Música 
Maestro)  utiliza  la  octava  4).  Al  utilizar 
estas  notas,  podrías  consultar  la  página  152 
del  “Manual  del  Usuario  del  Commodore 
64“  para  traducir  cada  nota  en  la  frecuen- 
cia alta  y baja  para  otra  octava  distinta. 

El  ordenador  te  pide  el  nombre  de  cada 
melodía  que  se  imprime.  Ahora  la  impre- 
sora lleva  el  control.  Cuando  termina  la 
impresora,  también  imprimirá  la  cuenta 
total  de  los  datos.  A lo  mejor  esto  te  resulta 
necesario  si  utilizas  otras  sentencias  Read 
en  un  programa. 

F6  te  permite  elegir  otra  duración  para  la 
melodía  sin  tener  que  salir  de  esta  modali- 
dad. Nota:  INST/DEL  no  fue  incluido  en 
la  modalidad  Imprimir  y Tocar  dado  que 
las  notas  están  colocadas  en  un  “array".  Si 
cada  nota  utilizara  solamente  un  carácter, 
INST/DEL  podía  haberse  incluido.  Pero, 
por  ejemplo  C#  ocupa  dos  caracteres. 
Borrarla  hubiera  estropeado  la  cuenta  de 
los  “arrays". 

Espero  que  disfrutes  con  Música  Maestro 
y que  proporciona  mucho  sonido  a tus  pro- 
gramas. 

Aquí  presento  unas  melodías  para  que 
experimentes: 

— FPFPFPCCPDPDPCCPAPAGPGPFF 
— GEGPGEGPPAPGPFPEPDPEPFPEF 
GPCPCPCPCPDEFGPG 
Después  de  familiarizarte  con  el  pro- 
grama, prueba  las  mismas  melodías  con 
distintas  formas  de  ondas,  ataque/ decai- 
miento, sustento/caida  y duración.  ■ 
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” la  Caixa’ 


LA  CONFIANZA  IMPULSA  NUESTRO  CRECIMIENTO 

Excelentes  resultados  económicos,  colaboración  en  diversos  frentes  de  interes  comunitario 

y progresiva  actividad  de  la  Obra  Social. 


(Información  sobre  el  ejercicio  de  1983,  aprobado  por  la  Asamblea  General  celebrada  el  dio  15  de  jumo  de  1984.) 


OBRA  social 


GESTION  ECONOMICA 


Una  gran  inversión  y un  gran 
programa 


La  confianza  aumenta 
los  depósitos 


La  colaboración  con  las  diferentes 
Administraciones  ha  representado  la 
concesión  de  créditos  por  un  valor 
superior  a los  17.000  millones  de  pe- 
setas. 

Expansión  de  la  red  de  oficinas 


Durante  el  año  1983  la  Caixa" 
destinó  a la  Obra  Social  más  de 
4.000  millones  de  pesetas  para  finan- 
ciar todas  sus  actividades.  Las  accio- 
nes de  la  Obra  Social  durante  este  pe- 
ríodo han  abarcado  312  localidades 
que  se  han  beneficiado  de  un  amplio 
programa  de  actividades  y realizacio- 
nes de  todo  tipo. 

Nuevos  Centros  de  Recreo 
y Casas  de  Cultura 


La  confianza  de  los  clientes  de 
"la  Caixa"  tiene  una  repercusión  direc- 
ta en  el  crecimiento  de  los  recursos 
captados,  que  durante  1983  ha  sido  de 
151.774  millones  de  pesetas. 

Esta  cifra  equivale  a una  tasa  de 
crecimiento  del  20,5  %,  cifra  superior 
a la  media  de  todo  el  conjunto  de  Caías 
y Bancos.  Contando  este  incremento, 
a finales  de  1983  el  total  de  recursos 
ajenos  ascendía  a 890.908  millones  de 
pesetas,  a los  que  hay  que  añadir  el  im- 
porte de  los  activos  intermediados,  que 
totalizaban  la  cifra  de  46.912  millones 
de  pesetas. 

Ampliación  de  las  modalidades 
de  ahorro 


En  1983  se  han  inaugurado  39  nue- 
vas oficinas,  que  sumadas  a las  ya  exis- 
tentes. hacen  un  total  de  836.  En  con- 
junto, y considerando  también  los 
cajeros  automáticos,  ‘la  Caixa"  dispo- 
ne de  la  red  de  oficinas  mis  extensa 
de  Cataluña  y Baleares. 

En  este  apartado  destacan  las  10  ofi- 
cinas Singulares  y la  presencia  en 
Madrid.  Bilbao,  Zaragoza  y Valencia. 

Los  beneficios  y su  distribución 


Intensa  actividad  educativa 
y cultural 


Este  año  han  entrado  en  fun- 
cionamiento 15  nuevos  equipamientos: 
10  Centros  de  Recreo,  4 Casas  de  Cul- 
tura y 1 Complejo  de  Servicios  Cultu- 
rales. A finales  de  año.  la  Obra  Social 
contaba  con  263  equipamientos  distri- 
buidos en  164  poblaciones  de  Catalu- 
ña. Baleares,  Madrid  y Valencia. 

41  Exposiciones  de  alto  nivel 


El  programa  educativo  «la  Caixa  a 
les  Escoles»  ha  contado  con  la  parti- 
cipación de  más  de  medio  millón  de 
escolares.  Por  otra  parte  el  Museo  de 
la  Ciencia  es  uno  de  los  más  visitados 
de  España,  con  246.995  visitantes. 

La  dotación  de  34  Becas  Fulbright, 
las  publicaciones,  las  107  Unidades  de 
Experimentación  Agrícola  y la  culmi- 
nación de  la  colección  «Las  100  mejo- 
res obras  de  la  Literatura  Catalana» 
son  una  buena  muestra  de  la  intensa 
actividad  desarrollada. 


El  ejercicio  de  1983  ha  dado  un 
beneficio  neto  de  8.978  millones  de  pe- 
setas, exactamente  2.548  millones  más 
que  el  año  pasado.  Estos  beneficios  se 
han  distribuido  de  la  siguiente  manera: 


En  1983  la  ampliación  de  las  mo- 
dalidades de  ahorro  de  "la  Caixa"  ha 
permitido  ofrecer  a sus  clientes  muchas 
posibilidades  de  inversión:  desde  la  po- 
pular libreta  a la  vista  hasta  Certifi- 
cados de  Depósito.  Cédulas  Hipoteca- 
rias, Bonos  de  Tesorería,  Pagarés  del 
Tesoro.  Pensiones  Temporales  y Vita- 
licias para  la  Tercera  Edad,  Libreta 
Agrícola  y Ahorro  Vivienda,  entre 
otros. 

450  millones  diarios  en  nuevos 
créditos 


IMPUESTOS 
680  millones. 
/ de  ptds 


HESE KVAS 
4.149  millones 
de  pías  \ 


Los  servicios  de  la  Obra  Social  han 
organizado  en  1983.  41  exposiciones 
que  han  contabilizado  un  total  de 
655.510  visitantes.  También  se  ha  ce- 
lebrado en  el  Museo  de  la  Ciencia,  el 
Festival  de  Cine  Científico  v Cultural. 


Proyección  territorial  y 
ciudadana  de  la  Obra  Social 


En  conjunto,  la  actividad  de  la  Obra 
Social  de  "la  Caixa  'se  ha  desarrolla- 
do en  312  municipios  donde  "la  Caixa" 
también  actúa  como  entidad  finan- 
ciera. 

El  programa  de  actividades  ha  to- 
talizado 10.227  sesiones. 

En  total  la  Obra  Social  de  "la  Caixa" 
ha  movilizado  en  1983  más  de 
2.150,000  personas  que  han  participa- 
do de  una  forma  u otra  en  sus  activi- 
dades. 


1.a  actividad  crediticia  de  "la  Caixa' 
durante  1983  ha  sido  muy  intensa.  El 
total  de  créditos  concedidos  en  este  pe- 
ríodo ha  sido  de  136.000  millones  de 
pesetas,  lo  que  representa  un  ritmo  de 
450  millones  por  día  hábil  y una 
tasa  de  crecimiento  de  la  cartera  del 
22,3  % respecto  al  año  anterior. 


\ OBRA  SOCIAL 
4 149  millones  de  pito 

Con  el  incremento  de  las  reservas 
que  resulta  de  esta  distribución  de  los 
beneficios  y considerando  el  efecto  de 
actualización  del  patrimonio  inmobilia- 
rio, los  Recursos  Propios  de  "la  Caixa 
han  alcanzado  la  cifra  de  106.331  mi- 
llones de  pesetas,  lo  cual  permite  que 
"la  Caixa”  disponga  de  un  coeficiente 
de  garantía  excepcional:  el  14,2  %. 
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MUSICA  MAESTRO 


0 REM#*#riUSICñ  MAESTRO  C-64*## 

5 GOSUB  1 2«00 

10  CLR : REM  NOTAS  = VOZ  1 

15  DIM  HI( 200 > , LO < 200 > , L N$ < 200 > : REM 

NUMERO  TOTAL  DE  NOTAS  POSIBLE  = 200 

20  PQKE5328 1 , 7 : PÜKE53280 , 7 • PR I NTCHR* 

< 144)CHR$< 147) 

30  IJP$=CHR$(  145)  : LF$=CHRt<  157) 

40  F0RS=54272T054296 : POKES , 0 ' NEXT 
50  SV=54296 ¡ SH=54273  = SL=54272 : SA=542 
77 : SS=54278  '•  SW=54276 

100  PR I NT " VOLUMEN [ SPC 3 C 1 - 1 5 3 “ ; CHR$ < 3 
2)CHR$<32> M 15“ 

1 0 1 PR I NTUP$ ; : FORX= 1 TO 1 4 : PR I NTCHR$ < 2 
9); : NEXTX 

102  INPUTVl* 

105  V 1 = V AL  < V 1 $ > 

110  I FV 1< 1 ORV 1 > 1 5THENGGSUB7000 
1 14  I F V 1< 1 ORV 1 > 1 5THENPR I NTUPt UP$UP$ 
GOTO 100 

125  F0RX=1T022 • PRINTCHR$(32) i ^NEXT^P 
RINT 

200  PR I NT “ FORMA [ SPC  3 DE [ SPC  3 ONDA " 

202  PR I NTT AB <1 0 > CHRf U 8 ) " T " j CHR$ < 1 46 
>; "RI ANGULAR” 

204  PR I NTT AB  <1 0 > CHRf < 1 8 > " S " ; CHRf  < 1 46 
> ; ” I ERRA  C SPC ] < D I ENTE [ SPC  DDE-) ” 

206  PR I NTT AB < 1 0 ) CHRf  < 1 8 ) " P ” J CHRf ( 1 46 
); "ULSADA" 

208  PR I NTT AB <1 0 > CHRf < 18) "N" ; CHRf < 1 46 
) J ” O I SE  C SPC  D ( RU I DO  > " ; CHRf < 32 ) CHRf  < 32 
>”T" 

209  PRINTUPf; : FORX=l T023 : PRINTCHRf (2 
9); : NEXT : IHPUTWlf 

210  I FW 1 t * ” T ” THENW 1 = 1 7 • PR I NT : GOTO300 

212  I F W 1 f = “ S “ THENW 1 =33 • PR I NT : GOTO300 

214  I FW 1 í = “ P “ THENW 1 =65 : PR I NT : GOTO300 

216  I FW 1 f = “ N " THENW 1*129: PR I NT : GOTO30 
0 

220  I FW 1 f O " N “ THENGOSUB7000 

226  IFWlf 0“N“THEN  F0RX=1T06 : PRINTUP 

f ; : NEXT : PR I NT : GOTO200 

300  PR  I NT 1 ” RTAQIJE/DECA I M I ENTO  C SPC  3 C 0- 

240  3 “ ; CHRf < 32  > CHRf < 32 > “ O “ 

302  PR I NTUPf ; : FORX= 1 T026 : PR I NTCHRf ( 2 
9); : NEXTX : INPUTAlf 
310  A 1 = VAL  < A 1 f ) 

320  I F A 1 <0ORA 1 >240THENGOSUB7000 

330  I FA 1 <0ORA 1 >240THENPR I NTUPf UPf : GO 

TO300 

400  PR I NT “ SUSTENTO/CA I DH [ 2SPC 3 1 0-240 
3 “ ; CHRf ( 32 ) CHRf < 32 ) “ 240 “ 

402  PRINTUPf; : FORX= 1 T023 : PR I NT CHRf ( 2 
9); : NEXTX : INPUTSlf 
410  S 1 = VAL 1 S 1 f ) 

420  I FS 1 C0ORS 1 >240 THENGOSU B 7 000 

430  I FS 1 C0GRS 1 >240T HENPR I NTUPf UPf : GO 

TO40O 

450  PR I NT  PR I NT " DURAC I ON  C SPC ] DE  C SPC ] 
NOTA " CHRf  < 32  > CHRf  ( 32 ) " 1 28  " 

45 1 PR I NTUPf ; FCiRX=  1T016 : PRI NTCHR$ ( 2 
9 > i ■ NEXTX : I NPUTD 1 $ 

452  IFLEFT$(D1$, 1 )<"0"ORLEFTt<Dl$, 1) 
> " 9 " THENGOSUB7000 

454  IFLEFTIKD1Í,  1 K"0"ORLEFTÍ (DI*.  1> 
> " 9 " THENPR I NTÜP$UP*UP# : GOTO450 
456  Dl=VflL<Dl$) : PRI NT 


458  FORX= 1 TO400 ■ NEXTX 

460  PRINTCHR*< 147>CHRf ( 18) "F3"CHR$< 1 
46  > " C SPC ] TOCAR  C SPC ] V C SPC ] VER  C SPC ] " ; 

461  PR I NTTAB  <20 ) CHRf (18 ) " F? " CHR$  <1 46 
>" C SPC ] VOLVER [ SPC  3 A [ SPC ] EMPEZAR " 

462  PR I NTCHRf  <1 8 ) " [ SPC ] P " CHRf  <1 46  > " [ SPC  J 
PAUSA"; 

463  PRINTSPCÍ 12)CHRf < 18) "RETURN"CHR$ 

< 1 46 ) " C SPC ] P I E C SPC ] DE  C SPC ] L I NE A " 

464  PR I NTCHRf (1 8 ) " [ SPC ] " CHRf  < 94 ) CHRf 
<1 46 ) " [ SPC ] BORRAR [ SPC ] TODO " ; 

465  PRI NTSPC < 6 ) CHRf <1 8 ) " I NST/DEL " CHP 
f < 1 46 ) " [ SPC ] BORRAR [ SPC ] NOTA " : PRI NT  P 
RINT 

467  FORMD=0TO39 : POKE 1 624+MD , 67 : POKES 

5896+MIi,  12  NEXTMD 

480  OETAf : IFAf=" "THEN480 

499  REM  ****  Af  SELECCION  DE  NOTAS- 

OCTAVA  4 

500  I FAf =CHRf (65) THEN  H I =28 : L0=49 : GO 

TO700 : REM  A 

510  I FAf =CHRf( 193) THEN  HI«29=L0*223: 
Af="A#" : GOTO700 : REM  A# 

520  IFAf=CHRf(66)THEN  HI=15 : LO=210 : G 
OTO700 : REM  B *«  NOTA  OCTAVA  3 NO  4 
$ ¡||||| 

530  I F Af =CHRf  ( 67 ) THEN  HI  = 16 : L0=195  •’  G 
OTO700 : REM  C 

540  IFAf=CHRf( 195) THEN  HI=17 : L0=195 
Af="C#" : GOTO700 : REM  C# 

550  I F Aí =CHRf ( 68 ) THEN  HI=18 : LO=209 : G 
OTO700 • REM  D 

560  IFAf*CHRf(  196) THEN  HI  = 19 •'  L0»239 : 

Af ="B#" : GOTO700 : REM  D# 

570  I F Af =CHRf ( 69 ) THEN  HI=21 : L0=31 : GO 
TO700 : REM  E 

580  I FAf =CHRf ( 70 ) THEN  H I =22 : L0=96 : GO 
TO700 : REM  F 

590  I F Af =CHRf (1 98 ) THEN  HI=23 : L0*18l : 

Af ="F#"  '■  GOTO700  REM  F# 

600  I FAf =CHRf (71) THEN  HI=25 : LO=30 : GO 
TO700 : REM  G 

610  IFAf=CHRf( 199) THEN  HI=26 : L0=156 ■ 

Af = " G# " : GOTO700 : REM  G# 

620  I FAf =CHRf ( 80 ) THEN  HI=0 : LO®0  Af=" 

P" • GOTO700 : REM  PAUSA 

635  I FAf =CHRÍ< 134) THEN  9000  REM  F3  P 

ARA  PONER  LOS  DATOS  EN  ARRAVS 

640  I F Af =CHRf ( 1 36 ) THEN 1 0 : REM  F7  VOLV 

ER  A EMPEZAR 

645  I FAf =CHRf (13) THENPR I NTUPf CHRf  <13 
) : GOTO480  REM  VOLVER  A PIE  DE  LINEA 

650  I FAf =CHR$ < 20 ) THENH I =0 : LO=0 : RR I NT 
CHRf < 1 57 ) CHRf < 1 57 ) CHRf  < 32 ) , GOTO480 

651  REM  LINE650  - 1 NSERT AR/BORRAR  UNA 
SOLA  NOTA 

660  I FAf  CHRf  < 94 ) THENGOTO460  : REM  LA 
FLECHA  ARRIBA  BORRA  TODA  LA  PANTALLA 
690  I FAf OCHRf ( 80 ) THENH  1=0:  LÜ=0 : GOTO 
480 

700  POKESH , HI : POKESL , LO = POKESA , A 1 = PO 

KESS ..SI  : POKESW , W 1 : POKESV , V 1 

740  FORX=lTODl  NEXTX 

750  PR I NT Af : " [ SPC 1“ i POKESV ,16: PQKES 

W, Wl-1 

800  GOTO480 

1999  REM  * TOCAR  UNA  MELODIA  * 

2000  IFN=0  THEN  RETIJRN 

2005  F0RX=54272  TO  54296 : POKEX, 0 : NEX 
TX 

(Pasa  a página  22) 
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casa  de 
software  sa.  I 


NOVEDADES: 


PRACTICALC  64 


MANUAL  EN  CASTELLANO 


CONTABILIDAD  64 
PROFESIONAL 


PROCESADOR  DE  TEXTO 

35.000  caracteres,  240  columnas 
Versión  diskette:  21.500,— 

Versión  cartucho:  24.900,— 

(grabación  de  documentos  en 
diskette  y cassette) 


HOJA  DE  CALCULO 

2.000  coordenadas 

(funciones  matemáticas,  sort,  gráficos...) 
Versión  cassette  C-64:  15.500,— 

Versión  diskette  C-64:  17.500,— 

Versión  cassette  VIC-20:  11.500- 
Versión  diskette  VIC-20:  13.500- 


• VIDEOCLUBS 

• CONTAB.  PERSONAL 

• PERT 

• ESTADISTICA 


VIZAWRITE  64 


NO  MMNf* 
««* 

u"  o 


| • N IwlWNiM 

I 

I • *«  I 

I SOlli  P 

I «NntA 


VERSION:  A 

300  cuentas 
3.000  apuntes 


VERSION:  B 

600  cuentas 
2.300  apuntes 


pwp.  VERSION  A:  24.550,- 
r.v.r..  VERS|0N  B.  29.500,- 


LAPIZ  OPTICO  Y 
SOFTWARE  GRAFICO 


• Listado  de  diario 

• Balance  de  situación  y de  Sumas  y Saldos 

• Estractos  de  cuenta 

• Cuenta  de  explotación,  diario  de  cierre 
_•  Mantenimiento  de  ficheros,  utilitario... 

EQUIPO  NECESARIO: 

• COMMODORE  64  y unidad  de  disco 

• IMPRESORA  MPS  801  (versión  A y B) 

• IMPRESORAS  CENTRONICS  (versión  B) 

ADAPTADO  AL  PLAN  GENERAL  CONTABLE  ESPAÑOL 


PERT  Versión  cassette 

Para  controlar  el  desarrollo  de  cualquier  pro- 
yecto. Análisis  de  actividades,  tiempos,  nu- 
dos y caminos  créticos. 

Necesario  impresora.  P.V.P.:  4.000,- 


P.V.P.  12.500,- 


JOYSTICK  DE 
PRECISION 


P.V.P.  2.950,- 


r 

DE  VENTA  EN  TIENDAS 

1 

Y DISTRIBUIDORES 

ESPECIALIZADOS 

r 

casa  de  software,  s.a. 

c/.  aragón,  272,  8.°,  6.a 
tel.  215  69  52 

barcelona-7 

J 

VERSIONES  VIC-20  y CBM  64 

Dibujar  en  pantalla  a mano  alzada  formas 
geométricas,  sombreados... 

Grabación  del  dibujo  en  cassette  ó diskette. 


ESTADISTICA  Versión  cassette 

Cálculo  del  valor  medio,  desviación  standard 
y coef . de  variación. 

Recta  de  regresión  de  valores  de  dos  variables. 

P.V.P.:  1.900,- 


Pulsador  sensible 
Cable  extra  largo 

Para  CBM  64,  VIC  20,  ATARI  CX  2600  y 

SPECTRUM  y demás  ordenadores  con  ¡nterface 

_ 


DESEO  RECIBIR  INFORMACION: 

Nombre  y dirección: 


MANUAL  EN  CASTELLANO 


VIDEO  CLUBS 

Programa  en  cartucho. 

Necesario  unidad  de  discos. 

1 .800  videofilms 
650  clientes  por  disco 
Saldo  de  cada  cliente 
Altas  y bajas  videofilms 
Búsqueda  videofilms/clientes. 

P.V.P.:  35.000- 


CONTABILIDAD 

PERSONAL 

26  conceptos 

Listado  por  impresora  y pantalla 
Análisis  financiero 
Análisis  porcentual  gráfico 

VERSION  CASSETTE 
P.V.P.:  6.000,- 


CONTABILIDAD 

DOMESTICA 


22  cuentas 

Listado  por  pantalla  o impresora 
de  los  ingresos  y gastos  de  cada 
período  definido. 

Sin  expansión  de  memoria 

VERSION  CASSETTE 
p VP  • 

C - 64  : 3.500,— 

VIC-20:  2.500- 


COMOOORE  64  ES  UNA  MARCA  REG.  DE  COMMODORE  BUSSINES  MACHINES.  INC. 
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MUSICA  MAESTRO 


(Viene  de  página  20) 

20 1 0 FORNN=0TON- 1 '•  POKESH ,HI< NN > : POKE 
SL,LO<NN) 

2020  POKESft , A 1 POKESS , S 1 : POKESW , W 1 : P 
OKESV,Vl 

2030  F0RX=1T0D1 NEXTX 

2040  NEXTNN : POKESV , 16 : POKESW, Wl-1 

2050  RETURN 

2999  REM  ***  VISUALIZA  NOTAS  UTILIZA 
NDO  LETRAS  ##* 

3000  PRINT 

3002  QT*=" NOTAS  C SPC ] A C SPC  í LETRAS " : GO 

SUB 1 0000 : FORX= 1 TO500 ; NEXTX 

3005  QT*=" ENCIENDE [SPC 3 IMPRESORA" : GO 

SUB  1 0000 : FORX= 1 TO500 : NEXTX 

3010  QT*= " DA [ SPC ] NOMBRE [ SPC ] A [ SPC ]LA 

C SPC  3 MELOD I A " : GOSUB 1 0000 : PR I NTUP* : PR 

INTTABÍ23); : INPUTAW* 

3020  OPEN1 , 4 

3030  PR I NT# 1,AW*PR INTUI 

3040  FORNH=0TON-1  PRINT# 1,LN*<NN);  = P 

R INTUI, "[SPC3"; : NEXTNN 

3050  PRINT#1 : PRINT# 1 , "NUMERO [SPC] DE [SPC] 

NOT AS [ SPC  3 « " ; NN ; " MAS [ 2SPC  3 - 1 , - 1 " 

3090  PRINT#1  CLOSE1  GOTO9200 

3095  PRI NTUP*; : FORX=0TO39 : PRINTCHR*< 

32) ; = NEXTX  PR I NTUP*UPf UP* : PRINT 
3100  QT*=" TERMINADA" : GOSUB 10000 : GOTO 
9200 

7000  QT#= " OPCION [SPC 31 LEGAL GOSUB 10 
000 : FORX=1TO50 : NEXTX 
7010  PR I NTUP*  = FORX= 1 TO30 : PR I NTCHR* < 3 
2) i ■ FORV= 1 T025 ; NEXTV = NEXTX : RETURN 

7999  REM  *#*  SOLO  IMPRIME  LOS  DATOS 
$$ 

8000  PRINT 

8002  QT$=" I MPR I ME [ SPC 3 SOLO [ SPC 3 DATOS 
" : GOSUB 1 0000 : FORX= 1 TO500 : NEXTX 
8005  QT*®  " ENC I ENDE [ SPC  3 1 MPRESORA " = GO 
SUB 1 0000 : FORX= 1 TO500 • NEXTX 
80 1 0 QT*= " DA [ SPC  3 NOMBRE [ SPC  3 A [ SPC  3 LA 
[ SPC  3 MELOD  I A " : GOSUB  1 @000 : PR  I NTUP*  : PR 
INTTABC23); : INPUTAW* 

8020  OPEN1 , 4 

8030  PR I NT# 1 , AW* : PR I NT# 1 

8040  FORNN=0TON- 1 : PR I NT# 1 , H I < NN ) ; " , " 

i LO(NN) ; " , " ; : NEXTNN : PRINT# 1 , "-1,-1" 

8045  PR I NT# 1 PR I NT# 1 , " NUMERO [ SPC  3 DE [ SPC  3 
DATOS  [ SPC  3 = 1 " ; NN*2  i " MAS  [ SPC  3 - 1 , - 1 " 

8050  PR I NT # 1 : GLOSE  1 RETURN 

8499  REM  ***  IMPRIME  TODO  EL  PROGRAM 
fl  ### 

8500  PRINT 

85 1 0 OT*= " RUT  I HA [ SPC 3 DE [ SPC 3 1 MPRES I O 
N" : GOSUB 10000 ■ FORX=1TO500 : NEXTX 
8520  QT *= " ENC I ENDE [ SPC  3 1 MPRESORA [ SPC  3 
" ■ GOSl  IB 10000 : FORX=1TO500 : NEXTX 
8530  QT$= " DA [ SPC  3 NOMBRE [ SPC  3 A [ SPC  3 LA 
[ SPC  3 MELOD I fl " GOSUB 1 0000 : PR I NTUP* : PR 
INTTAB<23) ■ : IMPUTAN* 

8550  OPEN 1 , 4 
8560  PR I NT# 1 , AHÍ 
8565  PRINTtl 

8570  PR I NT# 1 , " 1 00 [ SPC  3 FOR [ SPC 3 S=5427 
2 [ SPC  3 TO [ SPC  3 54296 [ SPC  3 [ SPC  3 POKE I SPC  3 
S , 0 [ SPC  3 ■ [ SPC  3 NEXT  [ SPC  3 S " 

8580  PR I NT# 1 • " 1 1 0[ SPC 3 READ [ SPC 3 SH , SL 

II 

8590  PRINT#1 , " 120ISPC3 IF[SPC3SH=-1 [SPC 3 
THEN [SPC 3 180" 

8600  PR I NT# 1 , " 1 30 [ SPC  3 P0KE54273 , [ SPC  3 


SHÍSPC3 • [SPC 3 POKE [SPC 3 54272, [SPC3SL" 

8610  PRINT#1 , " 140 [SPC 3 POKE [SPC 3 54277 
, ";fll; " : [ SPC 3 POKE [ SPC 3 54278 , ";S1 ; " P 
0KEÍSPC354276, ";W1 

8620  PRINT#1 , " 150  [SPC  3 POKE  [SPC  3 -54296 

, ";vi 

3630  PR I NT# 1 , " 1 60 [ SPC 3 FOR [ SPC 3 X* 1 [ SPC 3 
TOÍSPC3 " j DI " : [ SPC 3 NEXT [ SPC 3 X " 

8640  PRINT#1, "170 [SPC 3 GOTO [SPC 31 10" 

8645  PR I NT# 1, "180 [SPC 3 POKE [SPC 354298 
, 0 [ SPC  3 : [ SPC  3 POKE [ SPC  3 54276 , " ; W 1 - 1 
8650  PR I NT# 1 , " 200 [ SPC 3 DATA [ SPC  3 " , 

8660  FORNN=0TON-1 : PRINT#1 , HI CNN) , " , " 
JLO(NN); : NEXTNN  PRINT#1, "-1,-1" 

8690  PR I NT# 1 : PRI NT# 1, "NUMERO [SPC 3 DEC SPC 3 
DATOS [ SPC  3 = " ; NN#2 ; "MASÍSPC3-1 .-1" 

8700  PR I NT# 1 ; CLOSE 1 : GOTO9200 : REM  SIG 
UE  CON  OTRO  A$ 

8999  REM  PONER  DATOS  EN  ARRAVS 

9000  PRINTCHR*<19),  FORX=0TO199 : PRIN 
TCHR*<32);  NEXTX 

9005  PRINTCHR$C 19) ; 

9010  PRI NTCHR* (1 8 ) " F 1" CHR$ < 1 46 ) " [ SPC 3 
SOLO [SPC] DATOS"; 

9011  PR I NTTAB (1 7 > CHRÍ  < 1 8 ) " F2 " CHR* < 1 4 
6 >"[ SPC  3 1 MPR I ME [ SPC  3 TODO " 

9020  PR I NTUP* ; CHR*  <18)" F3 " CHR*  <146 ) " 

[SPC 3 PRACTICAR"; 

9022  PRINTSPC<5)CHR*< 18) "F4"CHR$< 148 
)"[ SPC  3 1 MPR I ME [ SPC  3 NOT AS " 

9025  PR I NTCHR* < 1 8 > " F5 " CHR*  < 1 46 ) " [ SPC 3 
TOCA [ SPC  3 MELOD I A " ; 

9030  PRI NTTAB < 17)CHR*< 18)"F6"CHR*< 14 
6)" [SPC 3 DURACION" 

903 1 PR I NTUP* ; CHR* < 1 8 > " F7 " CHR* < 1 46 ) " 

[ SPC  3 VOLVER  [ SPC  3 A [ SPC  3 EMPEZAR " 

9032  PR I NTCHR*  < 1 8 ) " [ SPC  3 P " CHR* <148) " 

[ SPC  3 PAUSA " ; 

9035  PRI NT SPC < 9 ) CHR* < 1 8 ) " [ SPC 3 " CHR* < 

94 ) CHR*  < 1 46 ) " [ SPC 3 BORRAR I SPC  3 TODO " 

9040  PRI NTCHR* < 19) : FORX=1T01 1 : PRINT : 
NEXTX ; REM  COLOCAR  EN  LA  LINEA  GRIS 
9100  PR I NT " RUT I HA [ SPC  3 DE [ SPC  3 1 NTRADU 
C C I ON [ SPC  3 EN [ SPC  3 ARR A V " ; UP * 

9 1 50  A*=CHR*  < 94 ) : G0T09345 : REM  LEE  PA 

•HTALLA  V FIJA  N APORPI ADAMENTE 

9200  CETA*: I Ffl*= " " THEN920O 

9210  I FA*=CHR* < 65 > THEN  HI <NJ=28 • LCKN 

) =49 : GOTO 9 4 00 : REM  A 

9220  I FA*=CHR* < 1 93) THEN  HI<N)=29  LO< 

N>=223 : A*="R#" : GOTO9400 : REM  A# 

9230  I FA*=CHR* < 66 > THEN  H I < N ' = 15 ■ LO  < N 
>=210  GOTO9400  : REM  B JUNOTE  OCTAVE  3 
NOT  4* 

9240  I FA*=CHR* < 67 ) THEN  H I < N ) = 1 6 LO < N 
) = 1 95  = GQTO9400 ■ REM  C 
9250  IFA*=CHR*< 195) THEN  HI<N)=17:L0< 
N)=195 ; A*= " C# " : GOTO9400  REM  C# 

9260  I FA*=CHR* <68 > THEN  HI <N>  = 18 : LO<N 

)=209 : GOTO9400 : REM  D 

9270  IFA*=CHR*< 196) THEN  HI<N)=19:L0< 

H ) =239 : A*= " D# " : GOTO9400 : REM  D# 

9280  I FA*=CHR* < 69 ) THEN  HI <N)=21 : LO<N 

)=31 : GOTO9400 : REM  E 

9290  I F A*=CHR* < 70 > THEN  HI <N)=22 : LOCN 

)=96 : GOTO9400 : REM  F 

9300  IFA*=CHR*< 198) THEN  HI<N)=23:L0< 

N ) = 1 8 1 A*="F#" : GOTO9400  REM  F# 

(Pasa  a página  24) 
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MANTENIMIENTO  DE 
ORDENADORES  COMMODORE 


• Desde  1979  damos  mantenimiento  a los  orde- 
nadores Commodore  y a sus  periféricos,  en  las 
series  2000,  3000,  4000,  8000,  y 700;  con 
todos  sus  periféricos  además  de  impresoras 
Epson,  Citoh,  Oki,  Texas,  Seikosha,  etc.;  discos 
Commodore,  Computhink,  Pertec,  Tandon, 
MPI,  etc. 


• Además,  al  suscribir  un  contrato  de  manteni- 
miento o contrato  de  asistencia  técnica,  le 
obsequiamos  con  un  seguro  a todo  riesgo  que 
cubre  todas  las  contingencias,  incluso  la  recu- 
peración de  datos. 


• Servicios  especiales  24  horas/365  días  para 
instalaciones  críticas. 


Iberdata,  S.  A.  División  Mantenimiento  de  Ordenadores 

ALICANTE  MADRID  VALENCIA 

(965)  12  09  00  (91)459  01  50  (96)351  19  61 

c / Padre  Vendrell,  4 P-  Castellana,  141  c/  Cervantes,  2 (Guillén  de  Castro) 

Alicante-3  Madrid- 16  Valencia-5 
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MUSICA  MAESTRO 


(Viene  de  página  22) 

9310  IFA#=CHR$<71)THEN  HI <N>=25 : L0<N 
> =30 : GGTO9400  ; REM  G 
9320  IFAÍ=CHR$< 199) THEN  HI(N)=26:L0< 
N > = 156 : A#="G#" 1 GOTO9400 : REM  G# 

9330  I F A#=CHR# ( 80 > THEN  H1 <N)=0 : L0<N) 
=0 : GOTO9400 : REM  P PAUSA 
9335  I F A#=CHR* ( 1 33 > THENGOSUB8000 : GOT 
09200  REM  F 1 IMPRIME  SOLO  LOS  BATOS 

9340  IFAÍ=CHR#< 137) THENGOSUB8500 ■ GOT 
09200  REM  F2  RUTINA  DE  IMPRESION 

9341  I FA*=CHR# (134) THENPR I NTCHR# (147 
> : N=0 : G0T0458  REM  F3  PARA  PRACTICAR 

9342  IFA#*CHR#< 135>ANDN=0THEN9200 

9343  I F A#=CHR# ( 1 35  > THENGOSUB2000 : GOT 
09200  REM  F5  TOCAR  LA  MELODIA 

9344  IFA#=CHR#<.  136>THEN1Q ; REM  F7  COM 
ENZAR  TODO 

9345  IFA#=CHR#< 94) THEN 10090 

9346  IFA$*CHR*< 138>THENOOTO3000 : REM 
F4  - IMPRIMIR  NOTAS  USANDO  LETRAS 

9347  IFAÍ=CHRÍ( 1 39) THENPR I NT = PRINT"D 
URACION" ; : INPUT  D 1 : GOTO9200 = REM  F6  D 
IJRAC I ON 

9350  IFA#OCHR#(80)THEN  GOTO9200 
9400  POKESH,HI(N)  = POKESL, LCKN)  ; POKES 
A . A 1 POKESS -Si: POKESM , W 1 = POKESV , V 1 
9410  F0RX-1T0B1  NEXTX 
9420  PR I NTA$ ; " [ SPC ] " ; : POKESV , 1 6 : POKE 
SW,W1-1 :LN#<N)=A#:REM  FIJA  LN  - LIST 


iC 


A NOTA 

9440  N=N+1 : GOTO9200  REM  INCREMENTA 
CUENTA  V LEE  OTRA  NOTA 

9999  REM  ♦♦♦  ESTA  RUTINA  HACE  EL  'SC 

ROLL  ■' 

10000  FOR I =0TOLEN<  QTÍ  > 

10010  POKESV , 7 ' POKESH  ,126:  pOKESL  .•  6 : P 
OKESA , 120 : POKESS, 30 : POKESW, 33 
1 0020  PPINTMIDÍ (QT#, 1 + 1 , 1 > > ■ POKESV , 0 

POKESW, 32: NEXT I 

1 0030  PR I NTUP$ ■ FORX= 1 TO40 : NEXTX 
1 0040  F0RS=54272T054296 : POKES , 0 : NEXT 

S 

1 0050  FQRX= 1 TO 1 00 : NEXTX : RETURN 

10089  REM  ♦♦♦  BORRA  ARRAV  DE  PANTALL. 

A ♦♦♦ 

10090  ER=N+79 : REM  ER  = BORRA  NOTAS  E 
N ARRAV 

1 0 1 00  FORMD=0TÚER  = F'OKE  1 664+MD+ 1 , 62 
10105  P0KE55936+MD, 1 : P0KE55936+MD+1 , 

2 : NEXTMD 

10110  PR I NTCHR# C 1 9 > FORX= 1 TO 1 2 : PR I NT 
: NEXTX 

1 0 1 20  N=0  GOTO9200 

11999  REM  ♦♦TITULO  DE  PANTALLAS 

1 2000  PR I NTCHR#'  1 47 >CHRí C5> ; P0KE5328 
1,7  P0KE5328Ü , 7 

12002  F mRS=54272T 054296  POKES ■ 0 : NEXT 
1 2004  SV=54296 = SH=54273  SL=54272 : SA= 
54277 : 3S=54278 : SW=54276  '•  UP#=CHPÍ <145 
> 

12810  F0RX=1T05 : PRINT : NEXTX 
12020  PRINT "MUSI CAI SPCI MAESTRO" :pRIN 
T 

1 2030  QT#= " 1 984 " : GOSUB 1 0000  PRINT: pR 
INT 

1 2040  QT#= " BV [ SPC ] GARV [ SPC ] F I ELDS " : G 
OSUB 1 0000  FORX= 1 TO500 : NEXTX 
1 2050  PR I NTUPÍ UP$UP$ : QT*« " VOZ  C SPC  D 1 1 SPC ] 
/ [ SPC ] OCTAVA [ SPC ] 4 " : GOSUB 1 0000  PRINT 
: PRINT 


1 2060  QTÍ = " ESTO C SPC 3C0NV IERTEC SPC ] EL 
C SPC ] SON I DO  C SPC ] EN  C SPC ] DATOS " : GOSUB 1 
0000  PRINT  PRINT 

1 2065  QT*=  "F 1 - C SPC 3 1 MPR I ME C SPC  3 SOLO [ SPC  3 
DATOS " : GOSUB 1 0000  PRINT 

1 2066  QT$= " F2- í SPC  3 1 MPR I ME [ SPC  3 PROGR 
AMA [ SPC  3 V [ SPC  3 DATOS " : GOSUB 1 0000 : PR I N 
T 

1 2067  QT$= " F4- C SPC  3 CONV IERTEC  SPC 3 DAT 
OS  C SPC  3 EN  C SPC  3 NOTAS " : GOSUB 1 0000  PR I N 
T 

12070  FORX=1TO500: NEXTX 
12080  PRINTCHRÍC 147) 

1 2090  PR I NTCHRí < 1 8 ) " C 2SPC 3 LE  TR A C SPC 3 

=CSPC3NOTA[6SPC3" : PRINT 

12100  PR I NT " C 6SPC  3 A [ SPC  3 = C SPC  3 A C 3SPC  3 

12102  PR I NT " C 6SPC  3 B C SPC  3 = C SPC  3 B C 3SPC 3 

12104  PR I NT " C 6SPC  3C C SPC  3 “ L SPC  3 C C 3SPC 3 

II 

12106  PR I NT " SH I FT/C  C SPC  3 = C SPC  3C# C 2SPC  3 

II 

12108  PRINT " C 6SPC 3 DC SPC 3 = C SPC 3 DC3SPC 3 

• I 

12110  PR I NT " SH I FT/D  C SPC  3 = C SPC  3 D#  C 2SPC  3 
12112  PR I NT " [ 6SPC  3 E C SPC  3 = C SPC  3 E C 3SPC  3 

II 

12114  PR I NT “ C 6SPC  3 F C SPC  3 = C SPC  3 F C 3SPC  3 

II 

12116  PR I NT " SH I FT/F [ SPC  3 = C SPC  3 F " " 

12118  PR I NT " C 6SPC  3 G C SPC  3 = C SPC  3 G C 3SPC  3 

12120  PR I NT " SH I FTXG  C SPC  3 = C SPC  3 G#  C 2SPC  3 

II 

12122  PR I NT " C 6SPC 3 P C SPC  3 = C SPC  3 PAUSA " 
PRINT 

12124  PR I NTCHR* <1 8 > "OTRAS C SPC  3 TECLAS 
[ SPC 3 NADA " : FORX=0TO39  PR I NTCHR# < 45 ) ; 

: NEXTX 

12125  PR I NT " PUEDEN C SPC  3 MEMOR I ZARSE [ SPC  3 
HASTA [ SPC  3 200  C SPC  3 NOTAS " 

12128  0T#= " LAS  C SPC  3 NOTAS [ SPC  3 PUEDEN [ SPC 3 
SER " : GOSUB 1 0000 : PR I NT 

12129  QTÍ = " TOCADAS " : GOSUB 1 0000 : FORX= 
1TO100: NEXTX 

12132  QTÍ = " I MPRESAS " : GOSUB 1 0000 ; FORX 
=1TO100: NEXTX 

12134  QTÍ = " L I STADAS [ SPC 3 COMO [ SPC  3 NOT 
AS " : GOSUB 1 000@ : FORX= 1 TO 1 00 : NEXTX 
1 2 1 36  QTÍ = " I MPRESAS [ SPC 3 COMO C SPC 3 PRO 
GRAMA  C SPC  3 CON  [ SPC  3 ' DATAS  •' " : GOSUB  1 000 
0: PRINT 

1 2200  PR I NT " CUNA C SPC 3 TECL A>  C SPC  3 PARA 
C SPC 3 EMPEZAR" : 

12210  GET  A#: IFAÍ=" "THEN 12210 
12500  RETURN  REM  ♦♦  VUELVE  AL  PROGRA 
MA  PRINCIPAL  ♦♦ 
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PRIMERA  PARTE 


VIC-20 


1.  INTRODUCCION 

Su  cartucho  del  Super  Expander  es  el  cartucho  más  versátil  que 
usted  puede  comprar  para  su  ordenador  personal  VIC-20.  Añade 
un  nuevo  conjunto  de  color,  de  trazado  de  gráficos,  de  música  y 
comandos  de  teclas  de  función  al  vocabulario  de  su  V1C...  y... 
añade  3K  extras  de  memoria  (RAM)  por  lo  que  usted  puede 
escribir  y ejecutar  programas  más  largos.  Con  este  cartucho 
puede  trazar  formas  gráficas,  “pintar"  colores  en  la  pantalla, 
redefinir  fácilmente  las  teclas  de  función  programables  del  VIC, 
escribir  música...  y más. 

Los  comandos  y funciones  que  se  dan  en  este  manual  funcio- 
nan como  los  comandos  del  BASIC.  Por  ejemplo,  usted  puede 
teclear  el  comando  POINT1,  50,  50  y pulsar  RETURN  y el  VIC 
colocaría  un  punto  en  esa  posición  de  la  pantalla. 

Además,  la  mayoría  de  los  comandos  están  preasignados  a las 
teclas  especiales  de  función  de  la  derecha  del  teclado  del  VIC. 
Usted  puede  entrar  esos  comandos  simplemente  pulsando  las 
teclas  de  función,  para  facilitar  la  programación  con  una  tecla. 

También  vería  que  todos  los  comandos  del  BASIC  funcionan 
normalmente  con  los  comandos  del  Super-Expander.  La  única 
excepción  es  la  sentencia  IF...THEN.  Toda  declaración  en  Super 
Expander  que  vaya  después  de  la  palabra  THEN  debe  separarse 
de  dicha  palabra  por  dos  puntos  (:)  He  aquí  un  ejemplo  de  cómo 
una  sentencia  se  escribe  correctamente  y cómo  no,  usando  la 
sentencia  IF...THEN: 


CORRECTO 
IF  X=THEN:SCNCLR 


INCORRECTO 
IF  X=l  THEN  SCNCLR 


Los  programas  que  han  sido  creados  con  las  especiales  senten- 
cias del  Super  Expander  no  funcionarán  en  una  máquina  que  no 
tenga  el  cartucho  del  Super  Expander  conectado. 

Finalmente,  la  expansión  extra  de  3K  de  memoria  se  consigue 
automáticamente  cuando  se  inserta  el  cartucho.  En  efecto, 
cuando  encienda  el  VIC  una  vez  conectado  el  cartucho,  usted 
verá  un  incremento  de  aproximadamente  3000  bytes  en  la  panta- 
lla inicial. 


Empezando  el  uso 

1.  Conecte  su  aparato  de  televisión. 

2.  Apague  el  VIC. 

3.  Inserte  el  cartucho. 

4.  Encienda  el  VIC. 

5.  El  Super  Expander  está  ahora  activado  y usted  ya  puede 
escribir  programas  en  BASIC  usando  los  comandos  y sentencias 
especiales  descritas  en  este  manual. 


2.  Usando  los  gráficos  del 
Super-Expander 

Antes  de  empezar  a trabajar  con  este  manual  es  conveniente 
que  le  demos  unas  cuantas  ideas  aclaratorias.  Para  empezar,  debe 
advertirse  que,  para  tarcas  de  trazados  de  gráficos,  el  cartucho 
del  Super  Expander  divide  el  área  de  pantalla  en  1024  por  1024 
coordenadas.  Por  ejemplo,  si  usted  teclea  POINT1, 512,  512,  verá 
aparecer  un  punto  en  la  mitad  de  la  pantalla.  Esto  son  “pseudo- 
coordenadas",  lo  que  significa  que  el  VIC  acepta  introducciones 
de  datos  basados  en  un  sistema  de  coordenadas  de  puntos  de 
1024  por  1024  y hace  que  el  trazado  salga  a escala  de  acuerdo  con 
la  actual  relación  de  tamaño  y resolución  de  la  pantalla  del  VIC. 

Una  completa  gama  de  instrucciones  gráficas  es  automática- 
mente añadida  a las  instrucciones  del  BASIC  cstándard  cuando 
inserta  el  cartucho  del  Super  Expander.  Estas  instrucciones  están 
explicadas  a continuación. 

NOTA:  CUANDO  TRABAJE  CON  GRAFICOS  HAY  DOS 
IMPORTANTES  PARAMETROS  QUE  USTED  DEBE  INCLUIR 
AL  PRINCIPIO  DE  SU  PROGRAMA.  Preparan  la  pantalla  grá- 
fica para  que  usted  pueda  trazar  y dibujar,  incluyen  caracteres 
mezclados  con  gráficos,  etc.  Los  dos  comandos  gráficos  que  usted 
debe  poner  al  principio  son:  GRAPHIC  y COLOR.  El  GRAPH1C 
coloca  el  VIC  en  el  “MODO  GRAPIIIC"  que  usted  quiera  usar,  y 
“COLOR"  especifica  los  colores  con  los  que  quiere  trabajar. 


Instrucción  Efecto 


GRAPHIC 

SCNCLR 

COLOR 


Prepara  la  pantalla  para  gráficos 

Limpia  una  pantalla  gráfica 

Selecciona  la  pantalla,  el  borde,  el  carácter  y 

los  colores  auxiliares.  P 
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Instrucción 

Efecto 

REGION 

Selecciona  el  color  de  un  carácter 

DRAW 

Dibuja  una  línea  entre  dos  puntos 

POINT 

Dibuja  un  punto 

CIRCLE 

Dibuja  un  círculo,  elipse  o arco 

PAINT 

Llena  un  área  limitada  de  color 

CHAR 

Pone  texto  en  una  pantalla  gráfica 

SOUND 

Pone  4 tonos  y volumen  de  golpe 

Función 

Valor  devuelto 

RGR  (X) 

Modo  gráfico  corriente 

RCOLR  (X) 

El  valor  en  un  registro  de  color 

RDOT  (X,  Y) 

El  color  de  un  punto  de  la  pantalla 

RPOT  (X) 

La  posición  del  paddle 

RPEN  (X) 

La  posición  del  lápiz  óptico 

RJOY  (X) 

La  posición  del  joystick 

RSND  (X) 

El  valor  en  un  registro  de  sonido 

Graphic  n 


Prepara  la  pantalla  gráfica  y activa  el  conjunto  de  instrucciones 
gráficas.  Hay  5 modos  GRAPHIC  diferentes,  los  cuales  son  acti- 
vando tecleando  GRAPHIC  y el  número,  como  instrucción  en  su 
programa. 

Ejemplo: 

10  GRAPHIC  2 

20  COLOR  1, 2,3,4 

Teclee  RUN  y pulse  RETURN. 


Valor  de  n 
0 
1 

2 

3 


Modo 

Modo  texto  (normal) 
Modo  multicolor 
Modo  de  alta  resolución 
Modo  de  vuelta  al  texto 


El  modo  0 es  el  modo  normal  en  el  VIC.  Una  vez  este  modo  ha 
sido  cambiado,  la  sentencia  GRAPHIC  4 es  usado  para  volver  a 
este  modo. 

En  el  modo  1 hay  80  puntos  por  línea,  y 160  líneas.  Cada  punto 
está  dibujado  en  uno  de  los  cuatro  registros  de  color:  color  de 
pantalla,  color  del  borde,  color  de  carácter  o color  auxiliar.  Un 
punto  colocador  en  el  color  de  pantalla  es  invisible,  ya  que  tiene 
el  mismo  color  que  el  fondo  de  la  pantalla;  esto  puede  ser  usado 
para  borrar  otros  puntos.  Los  puntos  dibujados  en  cualquiera  de 
los  colores  de  pantalla,  de  borde  o auxiliares  cambiarán  automá- 
ticamente cuando  esos  colores  cambien.  El  carácter  de  color  está 
asociado  con  cada  específico  espacio  de  4 por  16  puntos  de  la 
pantalla.  Esto  significa  que  si  un  punto  es  colocado  en  ese  espacio 
y en  un  carácter  de  color,  todos  los  otros  puntos  de  ese  espacio 
que  estuvieran  en  el  carácter  de  color  cambiarán  al  nuevo  color. 

En  el  modo  2,  hay  160  puntos  por  línea,  y 160  líneas.  Los 
puntos  tienen  la  mitad  de  anchura  que  en  el  modo  1,  lo  cual 
consigue  una  resolución  dos  veces  mejor  en  la  pantalla.  No  obs- 
tante, la  resolución  del  color  es  más  limitada.  Los  puntos  pueden 
ser  trazados  sólo  en  un  carácter  de  color.  Dentro  de  cada  especí- 
fico espacio  en  la  pantalla,  que  es  un  área  de  8 por  8 puntos,  sólo 
puede  haber  un  carácter  de  color,  por  lo  que  usted  sólo  puede 
tener  puntos  de  ese  color  en  la  pantalla. 

El  modo  3 es  una  mezcla  de  los  modos  2 y 1.  Cuando  el  color 
de  carácter  es  menor  que  8,  el  trazado  será  hecho  con  alta  resolu- 
ción. Cuando  el  color  de  carácter  es  mayor  que  7,  obtenemos  el 
modo  multicolor. 

El  modo  4 vuelve  la  pantalla  al  modo  de  texto. 

ATENCION:  Si  el  VIC  ya  está  en  modo  texto,  aparecerán 
cosas  raras  en  la  pantalla  y usted  tendrá  que  apagarlo  y volverlo  a 
encender. 


SCNCLR 

Esta  sentencia  limpia  la  pantalla  que  está  en  modo  gráfico. 
Puede  ser  tecleado  directamente  o incluida  en  una  línea  de  un 
programa. 

COLOR  scr  bo,  ch,  au 

Esto  inicializa  y prepara  los  cuatro  diferentes  registros  de 
color.  Las  variables  están  limitadas  por: 

se  = 0 a 15 
bo  = 0 a 7 

ch  = 0 a 7 normal,  8 a 15  multicolor 
au  = 0 a 15 


Los  colores  son: 


negro 

blanco 

rojo 

ciano 

púrpura 

verde 

azul 

amarillo 
naranja 
naranja  claro 
rosa 

ciano  claro 
púrpura  claro 
verde  claro 
azul  claro 
amarillo  claro 


NOTA:  en  el  modo  GRAPHIC  3,  los  colores  de  carácter  mayores 
que  7 colocan  el  modo  multicolor.  En  ese  caso,  el  actual  carácter  en 
ese  espacio  es  el  color  número  menos  8. 

EJEMPLO:  COLOR  1,  2,  3,  4 


REGION  c 

Esto  funciona  como  la  sentencia  COLOR,  con  la  diferencia  de 
que  sólo  el  color  de  carácter  es  afectado. 

EJEMPLO:  REGION  7 

DRAW  c,  xl,  yl  TO  x2f  y2 
[TO  x3,  y3  • ••  to  xn,  yn] 
o 

DRAW  c TO  xl,  yl  [...] 

Esto  le  permite  dibujar  líneas  en  la  pantalla.  La  variable  c es  el 
color  de  la  línea,  según  el  siguiente  esquema: 


alta  resolución 


pantalla 

carácter 

carácter 

carácter 


multicolor 


pantalla 

borde 

carácter 

auxiliar 


La  x y la  y son  las  variables  de  las  coordenadas  de  los  puntos 
que  indican  el  final  de  la  línea.  Los  valores  de  la  X y la  Y pueden 
estar  comprendidos  entre  0 y 1023.  El  valor  de  X 0 indica  el 
margen  izquierdo  de  la  pantalla,  y X=  1023  indica  el  margen  dere- 
cho. El  valor  de  la  Y sitúa  la  línea  arriba  y abajo.  Los  valores  de  0 
a 1023  están  a la  escala  del  tamaño  de  la  pantalla  (160  por  160  ó 
80  por  160). 
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EJEMPLO  1:  DRAW  1,  0,  0 TO  100,  100 

EJEMPLO  2:  DRAW  1,0,0  TO  0,  100  TO  ¡00,  100,  TO  100, 
0 TO0,  0 


EJEMPLO  1 


EJEMPLO  2 


POINT  c,  x,  y 
o 

POINT  c,  xl,  yl,  x2  y 2...,  xn,  yn 

Esto  coloca  un  punto  o puntos  en  la  pantalla  con  el  color 
especificado.  Los  puntos  están  dados  en  la  forma  de  0 a 1023. 

EJEMPLO  1:  POINT  1,  500,  500 

EJEMPLO  2:  POINT  2,  500,  500,  600,  600,  700,  700 


CIRCLE  «,  x,  y,  rx,  ry  +,  as,  ae 

c es  el  registro  de  color  (vea  la  tabla  en  la  sección  DRAW)  en  el 
cual  se  dibuja  el  círculo,  x e y son  las  coordenadas  del  centro,  rx  y 
ry  son  la  anchura  y la  altura  del  círculo,  as  y ae  son  los  ángulos 
opcionales  que  marcan  la  longitud  del  arco.  Van  en  gradianes  (0  a 
100  grados  en  un  círculo  completo. 

EJEMPLO  l:  CIRCLE  1,  511,  511,  300,  400 
EJEMPLO  2:  CIRCLE  l,  200,  900,  100,  100 
EJEMPLO  3:  CIRCLE  2,  500,  600,  200,  300,  10,  70 


EJEMPLO  1 


EJEMPLO  10  GRAPHIC  1 

20  COLOR  1,7,0,10 
30  CIRCLE  2,511,511,200,300 
40  PAINT  3,511,511 
50PAINT  1,511,0 

CHAR  ro,  co,  “text” 

Esto  le  permitirá  poner  texto  normal  en  una  pantalla  gráfica. 
Las  variables  ro  y co  indican  la  fila  y la  columna  en  donde  usted 
desea  que  aparezca  el  texto.  El  texto  puede  ser  cualquier  cadena 
variable  o cualquier  texto  dentro  de  las  marcas  de  cita.  El  texto 
aparecerá  sólo  si  estamos  en  el  modo  de  alta  resolución  o en  el 
modo  mixto,  pero  nunca  en  el  modo  multicolor. 

EJEMPLO:  CHAR  1,  1,  “HOLA” 

SOUND  si,  s2,  s3,  s4,  v 

Prepara  e inicializa  los  cuatro  generadores  de  sonido  y el  con- 
trol de  volumen  al  mismo  tiempo.  El  valor  SI  es  colocado  en  el 
registro  1.  Si  el  valor  es  menor  que  128,  no  se  generará  ningún 
sonido.  El  volumen  puede  variar  de  0(no  suena  nada)  hasta  15. 
Esto  le  permite  crear  y generar  gran  cantidad  de  sonidos. 

EJEMPLO:  SOUND  225,  225,  225,  0,  15 

RGR  (x) 

Esta  función  es  el  modo  gráfico  que  fue  introducido  por  el 
comando  GRAPHIC.  El  valor  de  x va  de  0 a 255,  y no  afecta  el 
resultado. 

EJEMPLO:  X=RGR(0) 

RCOLR  (x) 

Lee  el  color  de  cualquiera  de  los  cuatro  registros,  según  sea  el 
valor  de  x,  atendiendo  a la  siguiente  tabla: 

x Registro  de  color 

0 color  de  pantalla 

1 color  de  borde 

2 color  de  carácter 

3 color  auxiliar 

EJEMPLO:  X=RCOLR(2) 


EJEMPLO  2 


EJEMPLO  3 


PAINT  c,  xr  y 

Estas  pinturas  están  encerradas  en  un  área  encerrada  en  un 
color.  La  c es  el  registro  de  color,  y la  x y son  cualquier  punto 
dentro  del  área  en  ser  pintada.  Cada  área  puede  ser  pintada  una 
sola  vez.  A causa  de  las  limitaciones  de  color  de  algunos  modos 
GRAPHIC,  algunas  formas  pueden  ser  distorsionadas  en  esta 
operación.  Si  una  área  está  limitada  por  áreas  en  modo  multico- 
lor; debe  ser  pintada  en  modo  multicolor. 


RDOT(x,  y) 

Lee  el  valor  del  color  de  un  punto  en  la  pantalla.  Los  valores  de 
x y de  y son  las  coordenadas  de  dicho  punto,  y el  valor  del  color 
devuelto  es  el  registro  de  color  de  ese  espacio. 

EJEMPLO:  X=  RDOT(511,  511) 

RPOT(x) 

Lee  el  valor  del  paddle.  Si  x=0,  la  X del  paddle  es  leída,  y si 
x=l,  se  lee  la  Y del  paddle. 

EJEMPLO:  10GRAPHIC2:COLOR  1 1,6, 6,6 

20  X=RPOT(0):Y=RPOT(  1):J=RJOY(0) 

30  IFJ=12THEN:SCNCLR 
40  IFJ=4THEN:REGION2 
50  lFJ=8THEN:REGION6 
60  POINT2,X*4,Y*4:GOTO20 


Finalizará  en  el  próximo  número 
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CHIP  DE  VIDEO 

COMMODORE-64 

En  esta  serie  de  artículos  intentaré  explicar  las  posibilidades 
del  chip  de  vídeo  del  COMMODORE  64,  6569  ó VIC-ll.  Aprenderemos  cómo  manejar  sprites, 
cómo  crear  pantallas  de  Alta  Resolución,  cómo  presentar  textos  con  un  “ scrolling ” 

punto  a punto,  etc. 

Por  R.  PARDO 


Vamos  a ver  los  registros 
del  VIC-ll 

¿Qué  entendemos  por  registro?  Bien,  un 
registro  es  un  grupo  de  varios  bits  (incluso 
de  bytes)  que  cumplen  una  función  especí- 
fica en  un  chip  de  control  de  periférico.  De 
hecho,  el  procesador  central  “ve”  a estos 
registros  como  posiciones  normales  de 
memoria,  y para  el  chip  de  control  de  peri- 
férico esta  misma  posición  de  memoria 
tiene  una  tarea  específica.  Por  ejemplo:  los 
registros,  en  el  caso  del  chip  VIC-II  contro- 
lan el  acceso  a cualquiera  de  las  funciones 
que  este  chip  pueda  soportar.  De  hecho, 
actuando  sobre  un  registro  X le  diremos  al 
chip  de  vídeo  dónde  tiene  que  situar  hori- 
zontalmente el  Sprite  número  0 y actuando 
sobre  el  registro  X -f  I le  diremos  la  posi- 
ción vertical  del  mismo  Sprite... 

Habiendo  quedado  claro  el  concepto  de 
registro,  revisaremos  en  primer  lugar  todos 
los  registros  de  este  chip. 

REGISTRO  0 
(Posición  53248  - $D000) 

Este  registro  controla  la  posición  X del 
Sprite  0 en  un  margen  de  0 a 225. 

REGISTRO  1 
(Posición  53249  - SD001) 

Este  registro  controla  la  posición  Y del 
Sprite  0 en  un  margen  de  0 a 255. 


REGISTRO  5 
(Posición  53253  - $D005) 

Este  registro  controla  la  posición  Y del 
Sprite  2 en  un  margen  de  0 a 255. 

REGISTRO  ó 
(Posición  53254  - $0006) 

Este  registro  controla  la  posición  X del 
Sprite  3 en  un  margen  de  0 a 255. 

REGISTRO  7 
(Posición  53255  - $D007) 

Este  registro  controla  la  posición  Y del 
Sprite  3 en  un  margen  de  0 a 255. 


REGISTRO  2 
(Posición  53250  - $0002) 


REGISTRO  8 
(Posición  53256  - $0008) 


Este  registro  controla  la  posición  X del 
Sprite  1 en  un  margen  de  0 a 255. 


Este  registro  controla  la  posición  X del 
Sprite  4 en  un  margen  de  0 a 255. 


REGISTRO  3 
(Posición  53251  - $D003) 

Este  registro  controla  la  posición  Y del 
Sprite  I en  un  margen  de  0 a 255. 


REGISTRO  9 
(Posición  53257  - $D009) 

Este  registro  controla  la  posición  Y del 
Sprite  4 en  un  margen  de  0 a 255. 


REGISTRO  4 
(Posición  53252  - $0004) 

Este  registro  controla  la  posición  X del 
Sprite  2 en  un  margen  de  0 a 255. 


REGISTRO  10 
(Posición  53258  - $D00A) 

Este  registro  controla  la  posición  X del 
Sprite  5 en  un  margen  de  0 a 255. 


REGISTRO  11 
(Posición  53259  - $1)00 R) 

Este  registro  controla  la  posición  Y del 
Sprite  5 en  un  margen  de  0 a 255. 

REGISTRO  12 
(Posición  53260  - $D00C) 

Este  registro  controla  la  posición  X del 
Sprite  6 en  un  margen  de  0 a 255. 

REGISTRO  13 
(Posición  53261  - $D00D) 

Este  registro  controla  la  posición  Y del 
Sprite  6 en  un  margen  de  0 a 255. 

REGISTRO  14 
(Posición  53262  - $L)00E) 

Este  registro  controla  la  posición  X del 
Sprite  7 en  un  margen  de  0 a 255. 

REGISTRO  15 
(Posición  53263  - $LM)0K) 

Este  registro  controla  la  posición  X del 
Sprite  7 en  un  margen  de  0 a 255. 

REGISTRO  16 
(Posición  53264  - $L)010) 

Este  es  un  registro  (¡por  fin!)  diferente. 
Este  registro  contiene  los  bits  más  significa- 
tivos de  los  registros  de  posición  X para  el 
movimiento  de  los  Sprites  ¿Por  qué?  Porque 
con  un  sprite  tenemos  511  posiciones  de 
pantalla  para  movernos  (parte  del  movi- 
miento del  sprite  es  invisible  con  respecto  a 
nosotros  ya  que  transcurren  detrás  del 
marco)  y nosotros  hasta  ahora  y con  los 
registros  de  movimiento  horizontal  sólo 
podíamos  movernos  por  la  parte  izquierda 
de  la  pantalla.  Luego  nosotros  debemos 
prever  siempre  en  nuestros  programas  que 
usen  sprites  la  posibilidad  de  que  se  tengan 
que  mover  más  allá  del  límite  255  y en  ese 
momento  pondremos  el  bit  correspon- 
diente de  este  registro  a I. 

Ahora  veremos  cómo  están  repartidos: 
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76543210 

00010000 

Donde  el  bit  más  significativo  del  Sprite 
7 será  el  bit  7 y el  bit  más  significativo  del 
sprite  0 sera  el  bit  0. 

De  hecho,  en  el  ejemplo  que  doy,  el  sprite 
4 se  podrá  mover  en  el  área  de  pantalla  256 
-511  ya  que  tiene  el  bit  correspondiente  a 1. 

REGISTRO  17 
(Posición  53265  - SD011) 

Este  es  un  registro  que  controla  algunos 
de  los  modos  de  trabajo  del  chip  de  video. 
Ahora  veremos,  a nivel  de  bit,  lo  que  eje- 
cuta este  registro: 

Bits  0,  I y 2:  estos  bits  contienen  la  posi- 
ción vertical  (de  0 a 7)  de  la  línea  en  la  cual 
queremos  ejecutar  “smooth  scrolling”  (scrol- 
ling  suave,  punto  a punto). 

Bit  3:  este  bit  selecciona  el  número  de 
líneas  visibles  en  pantalla.  Cuando  este  bit 
está  a 0,  la  pantalla  pasa  a tener  24  líneas. 
Cuando  está  a I,  la  pantalla  dispone  de  25 
líneas  visibles.  Esta  característica  se  usa 
para  técnicas  especiales  de  presentación. 

Bit  4:  este  bit  activa  el  “blanking”  de 
pantalla  (el  fondo  pasa  a ser  del  mismo 
color  del  marco,  sin  borrar  ninguna  infor- 
mación de  la  pantalla)  y,  de  paso,  desactiva 
parte  de  las  actividades  del  chip  de  vídeo 
con  lo  cual  permite  que  el  microprocesador 
tenga  un  acceso  sin  restricciones  al  bus. 
Cuando  este  bit  está  a 0 activa  el 
“blanking’'. 

Bit  5:  este  bit  activa  el  modo  “bit-map” 
que  es,  en  definitiva,  el  que  permite  el  tra- 
zado de  funciones  en  Alta  Resolución. 
Cuando  este  bit  está  a I , se  activa  el  modo 
“bit-map”. 

Bit  6:  este  bit  activa  el  modo  de  color 
extendido,  en  el  cual  puede  controlar  el 
color  de  fondo  de  un  carácter  independien- 
temente del  color  de  fondo  que  puede  tener 
cualquier  otro  carácter  (mostrar  un  carác- 
ter azul  sobre  fondo  amarillo  en  una  panta- 
lla blanca).  Cuando  este  bit  está  a I,  queda 
activado  el  modo  de  color  extendido. 

Bit  7:  éste  es  el  bit  más  significativo  del 
registro  de  comparación  “ráster”  (barrido) 
(bit  8).  El  resto  del  registro  está  situado  en 
la  posición  53266  (SD012).  Hablaremos 
detenidamente  de  este  registro  más  adelante. 

REGISTRO  18 
(Posición  53266  - $U012) 

En  esta  posición  tenemos  los  8 bits 
menos  significativos  del  registro  de  compa- 
ración ráster.  Si  leemos  este  registro,  obten- 
dremos los  bits  más  bajos  de  la  posición 
actual  del  barrido  en  la  pantalla  (recuerde 
que  el  bit  más  significativo  de  este  registro  se 
encuentra  en  la  posición  53265  - $D01 1).  Se 
puede  usar  este  registro  para  que  los  cambios 
en  la  pantalla  se  introduzcan  sin  perturba- 
ciones en  la  misma.  Esto  se  consigue  cuando 
el  barrido  no  está  en  las  posiciones  visibles, 
es  decir,  entre  las  posiciones  51  y 251. 
Cuando  se  escribe  en  este  registro,  el  valor 


asignado  se  guarda  para  usarlo  en  la  compa- 
ración con  el  valor  actual  de  la  posición  del 
barrido  en  la  pantalla.  Si  estos  dos  valores 
son  iguales,  el  bit  0 del  registro  de  interrup- 
ción del  chip  de  vídeo  se  colocará  a 1. 

REGISTRO  19 
(Posición  53267  - SD0I3) 

Este  registro  contiene  los  8 bits  más  sig- 
nificativos de  la  posición  horizontal  del 
lápiz  óptico  en  la  pantalla.  Ya  que  la  posi- 
ción horizontal  del  lápiz  óptico  está  defi- 
nida por  un  contador  de  512  posiciones  (9 
bits),  se  obtendrá  una  resolución  máxima 
de  2 puntos  horizontales. 

REGISTRO  20 
(Posición  53268  - SD014) 

Este  registro  contiene  la  posición  vertical 
del  lápiz  óptico,  pero  al  tener  sólo  8 bits  se 
obtiene  el  valor  de  barrido  dentro  de  la 
pantalla. 

REGISTRO  21 
(Posición  53269  - $D0I5) 

Este  es  el  registro  de  activación  de  Spri- 
tcs.  El  bit  0 activará  al  Sprite  0,  el  bit  1 
activará  al  Sprite  1...,  y el  bit  7 activará  al 
Sprite  7,  entendiendo  como  activar  el  hecho 
de  que  sea  visible  o no  el  Sprite  seleccio- 


nado poniendo  a 1 ó no  el  bit  seleccionado 
(l=activado). 

REGISTRO  20 
(Posición  53270  - $1)016) 

Este  registro  cumple  algunas  funciones 
importantes  del  chip  de  vídeo.  Veamos  esta 
posición  bit  a bit: 

Bits  7 y 6:  sin  uso,  normalmente  están  a 1 . 

Bit  5:  ¡mantenga  siempre  este  bit  a 0! 
¿Por  qué?  Este  bit  controla  la  secuencia  de 
reset  del  chip  de  vídeo.  Cuando  se  inicialice 
el  chip  de  vídeo,  este  bit  debe  estar  a 0. 
Cuando  se  pone  a l.  todas  las  operaciones 
del  chip  de  vídeo  se  interumpen,  incluyendo 
salida  de  vídeo  y sincronismos,  refresco  de 
memoria  RAM,  y el  acceso  al  bus  del 
sistema. 

Bit  4:  este  es  el  bit  que  selecciona  el 
Modo  Multicolor,  tanto  en  Modo  Texto 
como  en  Modo  Bit-Map.  Se  activa  cuando 
está  a 1. 

Bit  3:  este  bit  selecciones  el  número  de 
columnas  disponibles  en  la  pantalla,  que 
puede  ser  de  38  ó 40  columnas.  Cuando 
esté  bit  a l , está  en  Modo  40  columnas.  Este 
tipo  de  características  se  usa  para  técnicas 
de  presentación  especial. 

Bits  2,  I y 0:  estos  bits  seleccionan  la 
posición  horizontal  de  la  línea  (de  0 a 7)  en 
la  cual  queremos  ejecutar  Modo  Smooth 
Scrolling  (Scrolling  Suave).  ■ 
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Rincón  del  700 


SOFTWARE  PARA  EL  700  (7)  UTILITARIOS  (4) 


Por  Jordi  SASTRE 


Este  mes  vamos  a ver  un  utilitario  muy 
interesante,  el  DISKM0N\  Su  come- 
tido es  visualizar  y/o  modificar  el 
contenido  de  bloques  de  disco. 

En  un  momento  dado  puede  ser  necesa- 
rio acceder  a un  bloque  de  disco  para  anali- 
zar su  contenido  o modificar  algunos  bytes. 
En  Basic  puede  hacerse  perfectamente  con 
pequeños  programas  (recordemos  el  pro- 
grama que  vimos  en  el  número  3 de  esta 
revista  — Pág.  40 — para  visualizar  el  con- 
tenido de  un  bloque): 

10  OPEN  15,8,13  : OPEN  2,8,2,“#’' 

20  PRINT#  I5,“U l”;2;0;T;S:REM  T= 
TRACK  S=SECTOR 
30  POR  X=1  TO  255 
40  GET#2,  A$  : PRINT  A$; 

50  NEXT 

60  CLOSE  2 : GLOSE  15 
Si  en  lugar  del  carácter  ASCII,  queremos 
visualizar  el  valor  absoluto  de  cada  byte, 
debemos  modificar  la  línea  40  de  la 
siguiente  manera: 

40  GET#2,  A$  : PRINT  ASC 
(A$+CHR$(0)); 

Nótese  que  el  valor  ASCII  se  obtiene 
añadiendo  a la  cadena  un  CHR$(0)  al 
final.  Ello  es  debido  a que  cuando  se  lee  un 
byte  cuyo  valor  es  cero,  la  variable  de 


recepción  (en  este  caso  A$)  es  asignada 
como  cadena  nula.  Si  se  intenta  obtener  el 
ASCII  de  una  cadena  nula:  ASC  (“”),  el 
ordenador  emite  un  mensaje  de  error 
“7ILLEGAL  QUANTITY”.  Ello  no  su- 
cede si  se  le  añade  el  CHR$(0)  al  final.  El 
CHRS(O)  no  afecta  al  valor  ASCII  de  la 
cadena  cuando  esta  no  es  nula. 

Continuando  con  nuestros  ejemplos,  si 
sólo  se  desean  visualizar  10  bytes  a partir 
del  byte  50,  debemos  posicionar  el  puntero 
y cambiar  el  valor  del  bucle  FOR/NEXT: 
25  PRINT#  15, “B-P’’;2;50 
30  FOR  X=1  TO  10 

Por  otro  lado,  si  lo  que  queremos  es 
poner  a cero  el  byte  10  del  track  5,  sector 
20,  debemos  ejecutar  el  siguiente  programa: 
10  OPEN  15,8,15  : OPEN  2,8,2,“#’’ 

20  PRINT#  15,“U1”;2;0;5;20 
30  PRINT#  15  “B-P”;2;10 
40  PRINT#2,CHR$(0); 

50  PRINT#  15,“U2”;2;0;5;20 
60  CLOSE  2 : CLOSE  15 
Como  vemos,  variantes  de  un  mismo 
programa  permiten  realizar  múltiples  y 
diversas  funciones.  Cuando  queremos  “arre- 
glar” algún  fichero  o modificar  cualquier 
cosa  del  disco,  es  difícil  hacer  un  programa 
que  automáticamente  lea  unos  bytes,  los 


analice,  tome  las  decisiones  pertinentes  y 
haga  las  modificaciones  oportunas.  Nor- 
malmente lo  que  se  hace  es,  partiendo  de  un 
programa  base  (que  puede  ser  cualquiera 
de  los  que  hemos  indicado  hasta  ahora), 
efectuamos  todas  las  consultas,  lecturas  y 
grabaciones  de  bytes  que  sean  necesarias  de 
una  manera  manual,  de  una  en  una,  modi- 
ficando el  programa  a medida  que  sea  nece- 
sario. 

Este  sistema  es  muy  artesanal  y meritorio 
para  el  programador,  pero  encierra  grandes 
riesgos  que  debe  intentarse  evitar  (una 
equivocación  en  el  número  de  sector  al 
hacer  la  grabación  puede  destruir  irrepara- 
blemente información  vital).  Menos  peli- 
groso es  cuando  la  información  se  mani- 
pula bajo  un  programa  que  se  encarga  de 
controlar  que  los  bloques  se  graban  siem- 
pre en  el  mismo  track  y sector  de  donde 
fueron  leídos,  que  identifique  claramente 
cada  byte  con  su  número,  que  no  sea  com- 
plicado de  manejar  y así  evitar  errores  del 
operador,  que  visualice  a la  vez  los  valores 
ASCII  y absoluto  de  cada  byte,...  etc.  Qué 
casualidad!,  hay  un  programa,  llamado 
DISKMON,  que  hace  todo  esto  y más. 

Lógicamente,  para  manejar  la  informa- 
ción directamente  sobre  el  disco,  debe 
conocerse  muy  bien  cómo  están  guardados 
los  datos:  estructura  del  disco,  BAM,  enca- 
denamiento entre  bloques  de  ficheros,  etc. 
Por  tanto,  antes  de  pasar  a comentar  el  uti- 
litario en  sí,  conviene  dar  un  repaso  a estos 
conceptos. 

Es  posible  que  esta  descripción  la 
empiece  en  un  nivel  muy  bajo  para  los  que 
ya  han  manejado  discos  alguna  vez,  pero 
siempre  conviene  hacer  caso  de  una  de  las 
sabias  normas  de  todo  programador:  dar 
algo  por  supuesto  es  la  manera  más  rápida 
de  tener  problemas. 

Para  empezar  debemos  saber  que  un 
disco  está  dividido  en  TRACKS,  y cada 
track  está  dividido  en  SECTORES.  A un 
sector  concreto  de  un  track  lo  llamamos 
BLOQUE.  Todos  los  bloques  tienen  256 
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bytes  cada  uno,  numerados  del  0 al  255.  El 
número  de  tracks  varía  según  la  unidad  de 
discos  de  que  se  trate  (el  8050  tiene  77 
tracks,  el  8250  tiene  154,  etc.),  y el  número 
de  sectores  varía  según  el  track  tratado  (en 
un  track  ubicado  en  la  parte  “exterior”  del 
diskette  caben  más  sectores  que  en  uno  de 
la  zona  “interior”,  porque  el  primero  es 
más  largo).  En  la  Tabla  1 se  detalla  la 
estructura  de  disco  de  la  unidad  8250,  que 
es  la  que  voy  a utilizar  como  base  y ejemplo 
en  este  artículo.  El  8250  no  se  diferencia 
excesivamente  de  otras  unidades  de  disco 
(3040,  8050,  9060,...  etc.)  en  cuanto  a siste- 
mas operativos,  pero  sí  en  cuanto  a estruc- 
tura de  tracks  y sectores.  Por  ejemplo,  el 
directorio  del  disco  está  ubicado  a partir 
del  track  39  en  el  8050  y 8250,  mientras  que 
en  el  2031,  3040  y 4040  está  a partir  del 
track  18. 

En  adelante,  cuando  haga  referencia  a un 
bloque,  lo  identificaré  con  sus  números  de 
track  y sector  separados  por  una  coma, 
por  ejemplo:  20,8  se  refiere  al  bloque 
situado  en  el  track  20,  sector  8. 

De  la  l abia  I vemos  en  primer  lugar  el 
reparto  exacto  de  tracks  y sectores  que 
tiene  el  disco;  sabemos,  por  ejemplo,  que  el 
bloque  20,82  o 241,15  no  existe  nunca. 
También  notamos  que  los  tracks  se  nume- 
ran a partir  del  I,  mientras  que  los  sectores 
empiezan  en  el  0.  Por  último,  sabemos  que 
todos  los  bloques  del  track  39  y los  bloques 
39,0,  38,3,  38,6  y 38,9  están  reservados  por 
el  sistema  para  guardar  la  cabecera  de 
directorio,  el  directorio  y el  BAM.  Esto  nos 
provoca  la  diferencia  entre  el  número  total 
de  bloques  existentes  en  el  disco  y el 
número  de  bloques  que  realmente  está  dis- 
ponible para  el  usuario.  Pero  ¿qué  es  la 
cabecera  de  directorio,  el  directorio  y el 
BAM? 

La  CABECERA  DE  DIRECTORIO  (en 
inglés  “Directory  Header”)  es  el  bloque 
donde  el  sistema  guarda  datos  referentes  al 
disco  en  conjunto:  nombre  del  disco,  identi- 
ficador,...  etc.,  tal  como  se  indica  en  la 
Tabla  2. 

El  DIRECTORIO  son  una  serie  de  blo- 
ques donde  el  sistema  guarda  información 
acerca  de  cada  una  de  las  entradas  en  direc- 
torio (programas  y ficheros).  El  comando 
CATALOG  o DIRECTORY  visualiza 
parte  de  esta  información  (ver  Tabla  3). 

El  BAM  (del  inglés  “Block  Availability 
Map”  = Mapa  de  Bloques  Disponibles)  es 
un  bitmap  por  el  cual  el  sistema  sabe  qué 
bloques  están  ocupados  y cuáles  no. 

Si  queremos  acceder  a un  fichero,  necesi- 
tamos saber  también  cómo  están  relacio- 
nados entre  sí  los  diferentes  bloques  que 
componen  el  fichero  en  su  totalidad  (los 
programas  están  incluidos  en  el  término 
“ficheros”). 

Los  ficheros  se  componen  de  una  serie  de 
bloques  físicamente  no  consecutivos.  El 
Directorio  indica  cuál  es  el  primero  de 
ellos,  mientras  que  cada  uno  apunta  al 
águiente  sucesivamente  hasta  el  último 


bloque.  Por  tanto,  la  estructura  de  un  blo- 
que de  datos  (de  programa  o de  fichero 
secucncial  o relativo)  es: 

BYTES  CONTENIDO 

0-1  Bloque  (track,  sector) 

del  siguiente  bloque. 

2-255  254  bytes  de  información 

Cuando  el  track  es  cero  (bytc  cero  = 0), 
significa  que  éste  es  el  último  bloque  del 
fichero.  Además,  si  se  trata  de  un  pro- 
grama, el  final  del  mismo  viene  indicado  den- 
tro del  bloque  por  tres  ceros  consecutivos. 

En  los  ficheros  relativos  raramente  coin- 
cide el  final  del  registro  lógico  con  el  final 
del  bloque  físico.  Por  tanto,  frecuentemente 
nos  encontraremos  con  que  un  bloque  de 
disco  contiene  parte  de  un  registro,  uno  o 
más  registros  completos,  y el  inicio  del 
siguiente  registro,  cuyo  final  está  en  el 
siguiente  bloque. 

He  hecho  una  descripción  muy  rápida 
sobre  los  discos.  Todo  lo  dicho  está  tam- 
bién explicado  en  el  Manual  de  las  Unida- 
des de  Disco  Commodore.  Por  tanto,  si 
alguien  desea  profundizar  sus  conocimien- 
tos sobre  este  tema  puede  remitirse  a este 
Manual. 

Funcionamiento  del  programa 

Pasaremos  ahora  a describir  el  manejo 


del  utilitario  DISKMON  en  concreto. 
DISKMON  se  compone  de  tres  ficheros: 

DISKMON. — Programa  Basic. 

DISKMON. DR. — Descriptor  de  panta- 
lla asociada. 

DISKMON. FP. — Pantalla  asociada. 

Esto  significa  que  si  en  un  momento  dado 
se  desea  copiar  el  utilitario  DISKMON  de 
un  disco  a otro,  deben  copiarse  estos  tres 
ficheros. 

DISKMON  se  pone  en  marcha  llamando 
y ejecutando  el  programa  DISKMON.  Si  el 
formato  de  pantalla  (DISKMON. DR  y 
DISKMON. FP)  no  estuviera  contenido  en 
el  drive  0 del  periférico  8 (que  es  donde  el 
programa  lo  busca),  deberá  cambiarse  la 
línea  1010  del  programa  DISKMON. 

La  pantalla  se  carga  y visualiza  inmedia- 
tamente. Es  en  esta  pantalla  donde  se  visua- 
lizarán los  contenidos  de  los  bloques,  a la 
izquierda  el  valor  decimal  de  cada  byte  y a 
la  derecha  su  equivalente  en  ASCII. 

En  la  linca  25  de  la  pantalla  el  operador 
debe  introducir  el  número  de  periférico  y el 
drive  a cuyos  bloques  de  disco  desea 
acceder. 

En  la  parte  superior  el  programa  pide 
TRACK  y SECTOR  del  bloque  a visuali- 
zar. Si  se  introducen  valores  correctos  el 
programa  carga  el  bloque  y visualiza  su  ► 
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contenido  en  la  pantalla.  En  la  última  línea 
informa  del  status  ( DS$)  obtenido  al  cargar  el 
bloque,  por  si  hubiera  encontrado  algún  error. 

Mientras  se  visualizan  los  bytes,  puede 
pulsarse  ESC  para  interrumpir  el  proceso, 
yendo  el  programa  a pedir  un  nuevo 
TRACK  y SECTOR. 

Una  vez  visualizado  todo  el  bloque,  el 
cursor  se  posiciona  en  el  byte  0,  permi- 
tiendo su  modificación.  La  tecla  RETURN 
se  desplaza  al  byte  siguiente,  SHIFT/RE- 
TURN  al  byte  anterior  y ESC  finaliza  la 
modificación. 

El  programa  pide  conformidad  antes  de 
grabar  de  nuevo  el  bloque  en  el  disco.  Des- 
pués vuelve  a pedir  otro  l'RACK  y SEC- 
TOR. Pulsando  RETURN,  SHIFT/RE- 
TURN  o ESC  sin  introducir  nada  en 
TRACK,  el  programa  finaliza. 

Aplicaciones 


Tabla  1: 

Mapa  de  Distribución  de  Bloques  (8250) 


TRACKS 

SECTORES 

SECTORES 
POR  TRACK 

1-39 

0-28 

29 

Total  bloques:  4,1 66 

40-53 

0-26 

27 

Track  de  directorio:  39 

56-64 

0-24 

25 

Bloque  de  cabecera:  39,0 

65-77 

0-22 

23 

Bloques  de  BAM:  38,0,  38,3,  38,6  y 38,9 

78-116 

0-28 

29 

Bloques  disponibles:  4 133 

117-130 

0-26 

27 

131-141 

0-24 

25 

142-154 

0-22 

23 

Tabla  2i 

Cabecera  de  Directorio  (Track  39  Sector  0)  (8250) 


Alquien  puede  pensar  que  el  acceso 
“fraudulento”  sobre  el  disco  que  éste  utili- 
tario ofrece  es  innecesario,  bien  porque 
mediante  programas  Basic  pueden  conse- 
guirse resultados  parecidos,  o bien  porque 
no  se  le  aprecia  a primera  vista  ninguna 
gran  ventaja  que  lo  justifique. 

El  DISKMON  sirve  para  modificar  bytes 
del  disco.  De  acuerdo  que  estos  bytes  pue- 
den modificarse  por  otros  medios  si  forman 
parte  de  ficheros  accesibles  vía  Basic.  Pero 
la  utilidad  del  DISKMON  está  principal- 
mente en  dos  aspectos:  primero  porque 
trabaja  sobre  bloques  tísicos  de  disco  en 
lugar  de  records  de  fichero  relativo  (asi  es  el 
caso),  y el  segundo  porque  permite  acceder  a 
bytes  que  normalmente  no  son  accesibles: 
podemos  visualizar  el  BAM,  el  directorio,  los  Tabla  3t 

bloques  que  componen  los  programas,  etc.  FofiliatO  de  los  BloQUDS  d©  D¡r©CtOlÍO 

Por  ejemplo.  En  la  Tabla  3 se  indica  que  ^ 

el  byte  2 corresponde  al  Tipo  de  Fichero. 

También  se  dice  que  el  tipo  de  fichero  0 es 
“fichero  borrado”  (?!).  Cuando  un  fichero 
se  borra  del  disco  (SCRATCH),  el  sistema 
libera  los  bloques  que  ocupa  y pone  el  byte 
de  Tipo  de  Fichero  a cero.  Por  tanto,  si 
después  de  borrar  un  fichero  restauramos 
este  byte  a su  valor  anterior  (según  el  tipo 
que  era),  podremos  operar  de  nuevo  con  el 
fichero:  lo  hemos  resucitado!.  Después 
hemos  de  volver  a reservar  en  el  BAM  los 
bloques  que  ocupaba,  o bien,  si  se  trata  de 
un  programa,  una  vez  cargado  en  memoria 
podemos  grabarlo  con  otro  nombre  antes 
de  volver  a poner  el  byte  de  Tipo  de 
Fichero  a cero  para  no  complicarnos  la 
vida  con  el  BAM. 

Otra  posible  utilidad  del  DISKMON  es 
cuando  un  fichero  da  errores  de  lectura. 

Entonces  podemos  buscar  el  bloque  erró- 
neo y sustituirlo  por  otro  modificando  el 
encadenamiento  entre  bloques  (si  es  relativo 
debe  modificarse  también  el  Side-Sector). 

Con  el  DISKMON  podemos  cambiar  el 
nombre  de  un  disco,  el  identificador,  nom- 
bres de  ficheros,  etc.;  pero  lo  más  impor- 
tante es  que  con  él  podemos  “reparar” 
ficheros  “estropeados”.  ■ 


BYTES 

CONTENIDO 

0-1 

Track  y sector  del  siguiente  bloque  de  directorio. 

2-31 

Fichero  número  1 . 

2 

Tipo  de  Fichero:  0 - Fichero  borrado. 

1 - Fichero  Secuencial  (SEQ). 

2 - Fichero  Programa  (PRG). 

3 - Fichero  Usuario  (USR). 

4 - Fichero  Relativo  (REL). 

3-4 

Track  y sector  del  primer  bloque  del  fichero. 

5-20 

Nombre  del  Fichero,  rellenado  con  CHR$(160). 

21-22 

Track  y sector  del  primer  Side-Sector  (Fichero  REL). 

23 

Longitud  del  record  (en  Ficheros  REL). 

24-27 

No  usados. 

28-29 

Track  y sector  de  para  grabación  con  reemplazo. 

30-31 

Número  de  bloques  usados  por  el  fichero. 

32-33 

No  usados. 

34-65 

FICFIERO  2 (igual  que  bytes  2 a 33). 

66-97 

FICHERO  3 (igual  que  bytes  2 a 33). 

98-129 

•FICHERO  4 (igual  que  bytes  2 a 33). 

130-161 

FICHERO  5 (igual  que  bytes  2 a 33). 

162-193 

FICHERO  6 (igual  que  bytes  2 a 33). 

194-225 

FICHERO  7 (igual  que  bytes  2 a 33). 

226-255 

FICHERO  8 (igual  que  bytes  2 a 31). 

BYTES 

VALOR 

CONTENIDO 

0-1 

38,0 

Track  y sector  del  primer  bloque  de  BAM. 

2 

67 

Identifica  formato  DOS  2,7 

3-5 

No  usados 

6-21 

Nombre  del  disco,  rellenado  con  CHR$(160). 

22-23 

160 

Constantes. 

24-25 

Identificador  del  disco. 

26 

160 

Constante. 

27-28 

50,67 

Indentifica  versión  y formato  de  DOS. 

29-32 

160 

Constantes. 

33-255 

No  usados. 
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EL  NUEVO  COMMODORE  64  PORTATIL 

Por  P.  M ASATS 


COMMODORE  ha  lanzado  al  mer- 
cado español  una  nueva  versión  de 
su  conocido  ORDENADOR  PER- 
SON  AI.  G-64  que  se  caracteriza  por  incor- 
porar un  monofloppy  1541  de  170K  y un 
monitor  en  color  de  5 pulgadas  además  del 
ORDENADOR  propiamente  dicho.  El 
nuevo  modelo  se  llama  5X-64. 

Este  equipo  es  completamente  compati- 
ble con  el  COMMODORE  64  tanto  en  lo 
que  respecta  al  SOFTWARE  como  al 
HARDWARE.  El  diseño  es  muy  cuidado 
para  facilitar  el  transporte  del  ordenador 
allí  donde  se  requiera  la  recogida  de  datos, 
realización  de  cálculos  complejos,  etc... 

Como  se  puede  ver  en  las  fotografías 
adjuntas  el  aspecto  exterior  del  ORDE- 
NADOR se  ha  cuidado  al  máximo  para 
solventar  el  “lío  de  cables”  que  suele  orga- 
nizarse en  la  mesa  de  trabajo  cuando  se  uti- 
liza una  configuración  de  CPU,  UNIDAD 
DE  DISCO  y MONITOR,  manteniendo  un 
aspecto  especialmente  cuidado  del  con- 
junto. Merece  destacarse  la  funcionalidad  y 
ergonomía  del  teclado  que  durante  el 
transporte  se  convierte  en  la  tapa  del 
equipo. 

Ea  calidad  del  monitor  de  video  incorpo- 
rado es  excelente  en  especial  cuando  se  tra- 
baja en  gráficos  de  alta  resolución,  no  obs- 
tante, para  un  trabajo  prolongado  el 
equipo  tiene  salidas  de  video  para  monito- 
res estándar  en  blanco  y negro  o color.  El 
SX-64  lleva  incorporados  un  amplificador 
y un  altavoz  para  efectos  de  sonido  y 
música  generados  por  el  sintetizador 
incorporado. 

Las  dos  únicas  diferencias  entre  el  SX-64 
y su  antecesor  el  COMMODORE  64  son  la 
ausencia  en  el  primero  de  la  conexión  para 
la  unidad  de  cassette  (que  queda  sustituida 
con  ventaja  por  la  unidad  de  disco)  y la 
ausencia  en  el  SX-64  de  una  salida  para 
televisor  (en  este  caso  es  el  monitor  incor- 
porado el  que  sustituye  con  ventaja  a la 
opción  del  equipo  original).  La  compatibi- 
lidad de  los  periféricos  de  ambos  equipos  es 
total,  pudiendo  utilizar  el  nuevo  modelo  la 
gama  de  periféricos  disponibles  para  el 
COMMODORE  64. 

En  lo  que  se  refiere  al  SOFTWARE  el 
nuevo  SX-64  ejecuta  todos  los  programas 
disponibles  para  el  COMMODORE  64 
tanto  ya  desarrollados  como  de  futura  apa- 
rición dado  que  son  internamente  iguales. 

Características  generales 

♦ 64 K RAM 

* SEGUNDO  PROCESADOR  Z80  EN  OPCION 
* GRAFICOS  IRI  DIMENSION  ALES 
(SPRITES) 

* SINTETIZADOR  MUSICAL 
* GRAFICOS  DE  ALTA  RESOLUCION 
(320X200)  * 16  COLORES 


* CAPACIDAD  PARA  LOS  INTERFA- 
CES RS232C  — E IEEE-488. 

* SALIDA  PARA  AMPLIACION  DE  HI-FI 
EXTERNO. 

* JUEGO  COMPLETO  DE  CARACTERES 
PET-CBM. 

* CONEXION  PARA  CARTUCHOS. 

* PORT  DE  USUARIO  PROGRAMA- 
BLE. 

* 2 PORT  PARA  JOYSTICK  O LAPIZ 
OPTICO. 

* PORT  PARA  DOS  JUEGOS  DE  PAD- 
DLES.  * CPU  6510. 

* TOTALCOMPATMI JDADCÜNI  TI  JM  3UAJE 
ASSEMBI.LR  6502. 

* INTER  FACE  PARA  PERIFERICOS. 

* DISCOS  Y CARTUCHOS  DE  SOFT- 
WARE COMPATIBLES  CON  LOS 
DEL  COMMODORE  64. 

* POSIBILIDAD  DE  TRABAJO  CON 
UN  MONITOR  EXTERNO. 

Datos  técnicos 

* Pantalla:  Monitor  de  color  integrado,  de 
40  columnas,  25  filas,  16  colores,  255  com- 
binaciones de  color  pantalla/marco.  Un 
total  de  255  caracteres  incluyendo  124  for- 
mas gráficas.  Hasta  8 SPRITES,  definida 
por  el  usuario,  cada  uno  con  su  propia 
prioridad  en  la  pantalla  para  la  realización 
de  efectos  tridimensionales.  Detección  de 
colisión  entre  aprites  o con  cualquier  otra 
forma  de  dentro  de  la  pantalla.  Gráficos  de 
alta  resolución  de  320  x 200  puntos. 

* Sonido:  3 voces  de  9 octavas  cada  una, 
4 formas  de  onda:  diente  de  sierra,  triangu- 
lar, cuadrada  de  ancho  variable  y ruido. 
Generador  programable  de  ataque,  decai- 


miento, sostenimiento  y relajación  ( ADSR). 
Filtro  programable:  Paso  bajo,  paso  alto, 
pasa  banda  y banda  rechazada.  Resonancia 
variable  en  el  filtro.  Control  de  volumen 
general. 

* Microprocesador:  MOS  6510  (compati- 
ble en  software  con  el  MOS  6502). 

* Formato  de  los  datos  numéricos:  coma 
flotante,  mantisa  de  9 dígitos,  exponente  de 
2 dígitos,  de  -39  a +38. 

* Arca  de  memoria  del  sistema  operativo: 
20 K ROM  - 3K  RAM 

* Area  del  usuario:  38 K RAM  o 54 K RAM 
si  no  se  usa  el  intérprete  BASIC. 

* Floppy  integrado:  170K,  uso  de  disco  de 
35  pistas,  simple  densidad,  simple  cara  y de 
cinco  pulgadas  y cuarto.  17-21  sectores  por 
pista,  256  bytes  por  sector,  683  bloques 
(664  libres). 

* Entradas/Salidas:  Port  de  usuario  con 
posibilidad  de  conexión  del  estándar 
RS232C  (requiere  un  conversor  de  nivel 
para  ser  plenamente  operativo).  Port  serie 
para  impresora.  Port  para  cartuchos  (jue- 
gos y expansiones  ROM).  Dos  ports  para 
joystick/paddles/lápiz  óptico  para  control 
de  juegos. 

* Lenguaje:  Intérprete  BASIC  residente. 

— Variables:  Reales,  enteras,  de  cadena. 

— Variables  de  matriz:  reales,  enteras,  de 
cadena  multidimensionales. 

* Generalidades: 

— Tamaño:  368  X 368  X 127  m/m. 

— Peso:  1 1 Kg. 

— Tensión  de  alimentación  220  V.  de 
corriente  alterna. 
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COMPARTIENDO  EXPERIENCIAS 

ENTRE  AMIGOS 


Esta  sección  está  dedicada  a la 
colaboración  de  todos  nues- 
tros lectores  y está  dividida 
en  dos  partes: 

1)  Programación:  Programas 
y similares. 

2)  Magia:  Trucos,  sugerencias, 
etcétera  (pág.  50). 

Habrá  premios  y alicientes  para 
todos  los  participantes  (ver  pág.  6). 

Enviarnos  vuestra  dirección  para 
que  podáis  poneros  en  contacto 
unos  con  otros.  ¡Animaros,  chicos 
(...y  chicas)! 


ATERRIZA  COMO  PUEDAS 

Y AROS 


Pedro  OBRADOR  - Arta  (MALLORCA) 


Me  llamo  Pedro  Obrador  y tengo  16  años. 
Hacía  tiempo  ya  que  deseaba  enviaros  una 
colaboración,  pero  a falta  de  una  os  mando 
tres.  Dos  de  ellas  son  originales  mías,  mien- 
tras que  la  tercera  ( zombis ) es  una  adapta- 
ción para  el  CBM  64  de  un  programa  apare- 
cido en  la  revista  inglesa  “ Personal  Computer 
World"  de  junio  del  pasado  año,  cuyo  pro- 
grama era  para  la  gama  Peí  CBM. 


Aterriza 
como  puedas 

Es  un  juego  que  consiste  en  descender  de 
una  nave  nodriza,  esquivar  un  campo  de 
asteroides  y aterrizar  sobre  una  de  las  pla- 
taformas, para  luego  volver  a la  nave 
nodriza.  Cada  vez  que  se  terminen  las  pla- 
taformas se  pasará  a otra  pantalla  más  difí- 
cil. Al  principio  del  programa  saldrá  en  la 
pantalla  “espera  un  momento”  (15  sgs.) 
durante  los  cuales  el  ordenador  crea  nuevos 
caracteres.  La  nave  se  maneja  con  la  “z” 
(izquierda),  “x”  (derecha)  y “m”  (propul- 
sor) que  acelera  cuando  subes  o para 
cuando  bajas,  gastando  el  fuel.  La  nave 
nodriza  se  abre  pulsando  cualquier  tecla. 

(5)  Inicializa  sonido. 

(10)  Dimensiona  memoria. 
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(20) 

(50) 

(60-70) 

(80) 

(90) 

(100-245) 

(250-345) 

(350-510) 


Instrucción  de  repetición  de 
tecla. 

Subrutina  de  caracteres  progra- 
mares. 

Inicialización  de  variables. 

Subrutina  de  dibujo  de  pantalla 
y dibujo  aleatorio  de  asteroides. 

Pone  a 0 (cero)  el  número  de 
caracteres  en  el  buffer  de  teclado. 

Movimiento  de  la  nave  nodriza  y 
movimiento  aleatorio  de  los 
asteroides. 

Movimiento  de  la  nave. 

Analiza  si  la  nave  choca  con 
algo. 


(550-600)  Mensaje  de  fin  de  juego. 


Aros 

Es  un  programa  de  gráficos  para  el  C-64. 
El  programa  utiliza  el  Bit-map.  Empieza 
preguntando  el  número  de  aros  y el  despla- 
zamiento horizontal  y vertical.  En  la  panta- 
lla se  dibujarán  tantos  aros  como  le  indi- 
ques, desplazándose  uno  a uno  la  cantidad 


de  pixels  que  tú  le  indiques.  Cada  aro  que 
se  vaya  dibujando  tendrá  un  tamaño  más 
reducido  que  el  anterior,  dando  así  bonitos 
efectos  cónicos  si  se  utiliza  el  número 
máximo  de  aros. 

(3-7)  Pide  las  variables. 

(9-10)  Entra  el  modo  Bit-map  de  alta 
resolución. 

(20)  Limpia  el  mapa  de  bit. 

(30)  Coloca  el  color  en  ciano  y negro. 

(40)  Bucle  de  número  de  aros. 

(50-120)  Bucle  para  pintar  la  circunfe- 
rencia. 

(78-110)  Calcula  y dibuja  el  resultado  en 
el  pixel  correspondiente  de  la 
pantalla. 

(125)  Indica  que  el  programa  ha  ter- 
minado cambiando  el  color  de  la 
esquina  superior  izquierda. 

(130)  Entra  en  un  bucle  sin  fin.  Para 
salir  del  modo  bit-map:  Run/S- 
top  y Restore. 


Nota:  La  tercera  colaboración  no  podemos 
publicarla  de  momento  al  ser  una  “adapta- 
ción” de  otra  revista,  ■ 
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[ SH IFTC 3 CSHIFTD3 [ SH I FTB3  C SH 1FTF  3 " 

200  N=  I NT  ( RNB  < 1 ) #F ) ♦ 1 

210  I FH< N » 1 704 THEN I < N > =- 1 

220  I FH  < N ) < 1 304THEN I < N > = 1 

230  POKEH  < N > , 32 : H < N > =H  < N > + 1 < N > : POKEH 

< N > , 66 

240  I FH < N ) =P 1 THENGGTO360 
245  IFM=1 THEN 100 
250  GETM$ 

260  I FM$= " Z " THENP=P- 1 
270  IFM$=HXMTHENP=P+1 
275  I FPEEK  < P > O32THEN350 
280  IFK10THEN300 

290  I F,M$=  "M" THENP=P-40  : POKER , 32  ■'  J=J- 

1 0 : PR I NT " [ HOM  3 " TRB  < 22  > J 

295  POKES . PNIK  1 > #255 

300  I FPEEK  < P > 032 THEN 350 

3 1 0 POKER  l , 32  : POKER , 64  • PGKE54272+P . 2 

320  P 1 =P : I FK= 1 THENP=P+40 * GOTO 1 50 
330  paR-40 

340  I FPC 1 344THENF0PX» 1 TO 1 50  NEXT  GÜT 
0250 

345  GOTO 150 

358  I FPEEK < P > =64 THE N3 1 0 
360  GOSUB260H 

370  I FPEF K •:  P > =680RPEF K ( P • =69THENK=  1 
POKER  1 , 32 : 1 FL  >7 THENPi  iKF  P . 32 ; E=E+  T NI  • 

10*0 >+J : GOTO 70 

390  I FF'Fbl:  * F‘  -•  =68UPPEEK < P • =69  I HEN'"*0 
400  I FPEEK  < P > =58ÜRPEEK < P > =590RPEEK < P 
>=60THEN460 

410  I FPEEK < P >=650RPEEK < P > =6 1 THEN470 

420  I FPEEK ( P ) =63THENE=F  + 1 50 : POKER , 32 

: L=L+1 ; GOTO500 

430  K=1  G=G+1  : GOSUB2500 

433  FÜPX= 1 00TÜ0STFP- 1 - POKES > X : POKER 1 

, 64 : POKER 1 , 32  NEXT : IFG=3THEN550 

435  1 FL>7THENE!=E+ 1 NT < 1 0*C >+ J : G0T07R 

450  GO  n‘«90 

460  E= E+50  POKER -2 . 32 • POKER- 1 , 32  PÜK 
EP , 32  PÜK  EP+  I. , POF  FP+?  > 32  : L =L.+ 1 - GO 
1 0500 

470  E=E+ 1 00  POKER- 1 . 32 • POKER . 32  PÜKE 

P+t . 37- L=L+1 

500  GGSUB2500 : K=2 


510  GOTO 150 

550  PR  I NTLEFTT  < 0:$ , 1 3 > T RB  < 1 2 > " [ ERROR  1 
F I N [ SPC ] DEL [ SPC ] JUEGO  M 
560  PR I NTLEFTÍ < Q* , 1 5 > TRB < 1 2 > " C ERROR 3 
[ CRSRD 3 OTRR í SPC 1 VEZ C SPC 1 < S/N > ■' 

565  FORV= 1 T03 : FORX= 1 T0255 : POKES , X : NE 
XTX,  V - POKES,  0 
570  PÜKE 1 98 >0 

580  GETCí  : I FC$0 " S M HNDCTO  " N " THEN580 

590  I FC$= " S " THENGOT 060 

600  I FCÍ  = " N " THENPR I NT  M [ CL.R  ] L ERROR  ] M : 

P0KE53272..  21  : P0KE53281  • 6 ENB 

2000  POKES > 0 : PR I NT ” C CLP J C CRSRD ] [ ERROR ] 

C 2SPC ] PUNTOS " TRB  <9)E ; TRB  < 1 7 > " FUEL C 2SPC 3 
800 " TRB ( 29  > " NRVES  C 2SPC  3 " ; 3-G 
20 1 0 FOR 1=11 04 TO 1 1 43 : PÜKE 1,45: PÜKE I + 
54272  ..  1 1 : NEXT 

2020  E*= " [ERROR ] [ 3SPC 3 C SH 1 FTR 3 = [ 9SPC 3 
[ SH I FTR  3 = C 1 5SPC  3 C SH I FT  R 3 = 

2030  CS= " [ CRSRD 3 [ ERROR 3 C 3SPC 3 ? C1 0SPC j 
■>  C 8SPC  3 [ 7SPC  3 ? [ 7SPC  3 " 

¿040  F$=  M t ERROR  3 C 1 3SPC 3 : ; C 
2047  FORX= 1 T 0255 : POKES , X NEXT : F0RX=2 
55T01STEP-1 : POKES, X : NEXT : F0RX=1 TÚ255 
POKES, X : NEXT : POKES, 0 


¿Que  no  sabes 
cómo  suscribirte 
a Commodore  World? 

¡PUES  VENGA,  LLAMANOS!!! 
(91)  259  54  78  y (93)  212  73  45 


Commodore  World  Julio/ Agosto  1984/35 


COMPARTIENDO  EXPERIENCIA  ENTRE  AMIGOS 


2050  PPINTLEFT$(0$, 23>F$ 

2060  F'P  I NTLEFT*  < Q$ . 24  > Eí 
2070  PP I HTLEFTÍ < Qt ■ 25 ) C* 

2080  FHRX*  1. 984102023  • PÜKEX , 62  ; PÜKE54 
272+X, 1 1 = NEXT 
2090  F ORO* 1 T OF 

2100  I =RNB ( 1 > 1 F I > . 5THEW I t O ) = 1 
2105  I F I <;= . 5THEN I < O )=-l 
2110  H < O > = I NT < PHD ( 1 >* 1 703 > + 1 
2120  IFH< O ) < 1 304THEN2 1 00 
2130  F'ÜKEH  < O > .66 
2140  NEXT 

2145  FORI-1303TO1704 
2150  P0KE54272+I .2 
2 1 55  POKES , PHD < 1 > *255 
2160  NEXT 

2170  POKES , 0 : RETURN 

2500  PR 1 NT " [ HOM I " TRB '•  9 > E • TfiE 1 22  > J ; "ISPu  J 
THE  '236  >3-0 
2520  RETURN 

A.ÍU1  FORX=  1 r 1.150  : POKFS  ■ X NEXT  FGRV=X  T 
01STEP- 1 POKFS, V NFXT  POKES • 0 ■ RETURN 

3000  PÜKE56334 , PEEK < 56334 ) PND254 ■ POK 
E 1 .•  PEEK  ( 1 > RND25 1 
3010  FOPI=0TÜ71 
3020  FORH=0TQ7 

3030  POKE 1 2288+ 1 *8+H , PEEK  < 53248+ 1 *8+ 

H> 

3040  NEXTH  NEXTI 

3050  POKE 1 , PEEK  < 1 >0R4 ; P0KE56334 , PEEK 
(56334) ORI 

3060  P0KE53272 • < PEEK < 53272 ) RND240  > + 1 

cJ 

3070  FOR I =58  T O70 

3080  FORH=0T07 : REhIiR 

3 i 20  POKE 1 2288+ < 8* I > ■ +H , Q 

3140  NEXTH: NEXTI 

3200  D«TR255 , 255  7 255 , 1 27 , 63 . 3 1 .•  7 , 3 
32 1 0 DRTR255 , 255 , 255 , 255  , 255 , 255 , 255 
, 255 

3220  DRTR255 ..  255 ..  254 , 254 , 254 , 254 , 252 
* 252 

3230  DRTR252 , 240 , 224 , 224 , t 92 , 128,1 28 
,128 


3240 

3250 


3260 

3270 

55 

3280 

60 

3283 
3285 
3290 
3295 
, 255 


DRTM4 , 1 2 ..  28 .■  28  ■ 62  ■ 1 26 , 255 , 255 
DHTR255 ,127, 254 , 1 26 • 1 26 , 60 ,28,1 

D8T824 , 24 , 60 , 60 , 90 , 1 26 , 90 , 1 95 
D8TR255 , 127,1 27 , 63 , 63 , 1 27 , 127 , 2 

DHT856, 126, 127, 223, 255, 247, 126, 

DHTHl 29 , 65 , 33 , 23 , 29 ,127,91, 255 
DhTh 15,1 24  ^ 192, 1 92 , 1 28 , 1 28 , 0 , 0 
DftT 8240 , 62 , 3 , 3 , 1 , 1 , 0 , 0 
DRTh 1 29 , 1 30 , 1 32 , 232 , 1 84 , 254 .218 


3300  RETURN 


AROS 

3 I NPUT " NUMERO [ SPC 1 DE [ SPC ] OROS l SPC 1 < 

1 ~ 1 6 ) " . R 

5 I NPUT " DESPLR28M I ENTO C SPC ] HOR I ZONTR 
L 11 B « 

7 I NPUT " DESPLR2RM I ENTO í SPC 1 VFRT I CRL " 
, D 

9 BRSE=2*4096 ■ P0KE53272 , PEEK  < 53272 > O 
R8 

1 0 P0KE53265 , PEEK  C 53265  > 0R32 

20  FOR I «BfiSETOBRSE+7999  POKE 1,0: NEXT 

30  FOR I = 1 024TO2823 : POKEI , 3 : NEXT 
40  FORC=0TOñ-l 
50  FORN=0TO2*irSTEPirX180 
60  X=INT ( 1 1 9+B*C+ < 80-5*C ) *COS  < N ) ) : V= 
I NT  < 1 00+D*C+ < 80-5*C > *S I N < N > > 

75  I FV<0ORV> 1 99ORX<0ORX>3 1 9THEN 1 20 
78  CH-INT(X/8) 

80  R0= I NT  < Y/8 > 

85  LN=VRND7 

90  BV=BRSE+RO*320+8*CH+LN 
100  BI=7-(XRHD7) 

1 1 0 POKEBV , PEEK  < BY > OP ( 2 TB I > 

120  NF.XTN,  C 
1 25  POKE 1 024 , 1 6 
130  GOTO 130 


O*» 


* Ensamblador  (assembler).  Len- 
guaje/programa que  facilita  la 
programación  en  código-lenguaje 
máquina. 

* Fichero  (File).  Conjunto  de 
datos,  pueden  ser  almacenados 


en  memoria  RAM,  en  disco, 
cinta,  o cualquier  otro  medio  de 
almacenamiento. 

* Medio  de  almacenamiento  (sto- 
rage  media).  Dispositivo  físico  en 
el  que  se  almacenan  datos  o 
programas. 

* Página.  256  posiciones  de 
memoria  consecutivas;  la  parte 
alta  de  sus  direcciones  es  la 
misma  en  todas  ellas. 


* Página  cero.  La  primera  página 
de  la  memoria  del  ordenador, 
son  las  posiciones  de  memoria 
S mm  a $00FF  (0  a 255  en 
decimal). 

* Procesador  de  textos.  Pro- 
grama que  permite  utilizar  el 
ordenador  como  una  máquina 
de  escribir  electrónica  con  la  ven- 
taja adicional  de  poder  corregir, 
trasladar,  añadir,  etc.,  párrafos 
antes  de  imprimirlos. 

* Salto  (branch).  Alteración  del 
contador  de  programa  para  que 
continúe  su  ejecución  en  otro 
lugar. 
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AR " PR I NT " UNR [ SPC ] HE [ SPC ] LRS [ SPC ] I NC 
ÜGN I T AS " 

220  PR I NT " C SPC ] LUEGO C SPC ] I GURLRMOS [ SPC ] 
LOS"  PR I NT " [ 2SPC 3 VALORES C SPC 3 OBTEN I D 
OS" 

230  PR I NT " [ 4SPÜ ] [ 2C0MM+ 1 EJEMPLO C2C0MM+ ] 


240  PR I NT " C CRSRH 3 C SPC 3 X+5V  C SPC 3 = C SPC ] 

1 3 i CRSPU 3 C SH I FT  l ] [ CRSRD 3 [ CRSRL 3 CSHIFT-'J 
[ SPC 1 X C SPC ] = [ SPC ] 1 3-5V " 

250  PR I NT " [ CRSRD 3 L SPC 3 X- C SPC 3 V í SPC 3 = 

[ 2SPC 3 7 C CRSRU 3 C CORNO  3 C CRSRD 3 í CRSRL 3 C SH T FT- 3 
[ CRSRL 3 C CRSRD 3 C SH IFTK 3 C CRSRU 3 [ SPC 3 X [ SPC 3 
= C 2SPC  3 7+  C SPC  3 V " 

260  PR I NT " [ CRSRD ) [ SPC 3 1 3-5Y C SPC 3 ” C SPC 3 
7+VCSPC3, [SPC 3 LUEGO " 

270  PR I NT " [ CRSRD  3 [ 2SPC 3 6 V [ SPC 3 = C SPC 3 
6 [ 2SPC 3 =>  C 2 SPC 3 C COMM+ 3 V= 1 [ CÜMM+  3 " 

280  PR I NT " [ CRSRD  3 SUST I TUVENDO [ SPC  3 V [ SPC 3 
POR [SPC 3 1 " : PR I NT " TENEMOS [ SPC  3 EL  C SPC  3 
VALOR  [ COMM+  3 X=8  C COMM+  3 [ CRSRD  3 " 

290  GÜTÜ90 

300  PR I NT " C CLP  3 METODO [ SPC  3 DE [ SPC  3 SUS 
TITUCIÜN" 

310  PR I NT " [ CRSRD  3 TENEMOS [ SPC  3 QUE [ SPC  3 
DESPEJAR " : PR I NT " UNA [ SPC  3 DE  C SPC  3 LAS [ SPC  3 
INCOGNITAS" 

320  PR  I NT  " [ 2SPC  3 LUEGO [ SPC  3 SUST  ITIJIMO 
S " • PR I NT " [ SPC  3 EL [ SPC  3 VALOR [ SPC  3 EN [ SPC  3 
LA C SPC 3 OTRA CSPC 3M 

330  PR I NT " ECUflC I ON [ 2SPC 3 [ 2C0MM+ 3 E JEM 
PLOC2CGMM+3 " 

340  PR I NT " [ CRSRD  3 [ 2SPC 3 X+ V [ SPC  3 = [ SPC  3 
1 9 [ CRSRU  3 [ SH I FT I 3 [ CRSRD  3 [ CRSRL  3 C SH IFT- 3 
[ SPC  3 V C SPC  3 * [ SPC  3 1 9-X " 

350  PR I NT  M [ CRSRD  3 [ SPC  3 2X- Y [ SPC  3 = [ 2SPC 3 
2 C CRSRU 3 [ COMMQ 3 [ CRSRD  3 [ CRSRL  3 C SH I FT- 3 
[ CRSRD  3 C CRSRL  3 C SH I FTK  3 C CRSRU  3 2X- < 1 9- 
X)=2" 
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Una  linea 

10  INPUT  A,B,C,D,E,F:T=A*E-B*D:R= 
C*  E-B*  F:S-A*  E-C*D:  X-R/T:  Y=S/T: 
PRINT;  Y:  GOTO  10. 

Este  miniprogramita  te  pide  en  primer 
lugar  los  coeficientes  de  X,Y,  término  inde- 
pendiente de  las  dos  ecuaciones  j^+Ey^ri 

con  dos  incógnitas,  luego  calcula  y por 
último  te  da  los  valores  de  “x”  e “y”,  vol- 
viendo a pedir  datos  de  nuevo. 

Si  tienes  el  VlC-20  con  Super-expander 
hazlo  asi: 

KEY  3,“  10  INPUT  A...  (todo  lo  demás)... 
PRINTX;Y"+CHR$  (13) 

Pulsando  la  F3  tendrás  el  programa  a tu 
disposición  sin  pulsar  RETURN. 


Muchos  juegos... 
pocos  números 

Os  mando  una  cinta  con  muchos  núme- 
ros. Repaso,  resolución  y gráfica  (Super- 
expander  VIC-20)  de  sistemas  de  ecuacio- 


nes de  primer  grado  con  dos  incógnitas/ El 
mismo  que  en  UNA  LINEA,  pero  con 
más.) 

Decís  que  devolvéis  la  cinta  con  otro 
programa,  bueno,  pero  por  favor  JUEGO 
no,  si  es  posible  que  sea  uno  para  crear  mis 
propios  caracteres,  y podéis  hacer  vuestro 
éste  y los  sucesivos  que  prometo  enviaré, 
claro,  de  NUMEROS,  de  esta  forma 
podrán  beneficiarse  todos  los  suscriptores 
de  COMMODORE  WORLD;  yo  me  siento 
“pagado"  con  el  programa  de  regalo. 
GRACIAS. 

Paso  a comentar  el  programa: 

Su  utilización  está  orientada  a la  ense- 
ñanza (EGB  y BUP),  para  lo  cual  se  pre- 
senta un  menú  para  utilizar  opcionalmente 
el  repaso  (alumno)  o la  enseñanza  (profe- 
sor) de  los  métodos  de  resolución:  IGUA- 
LACION, SUSTITUCION,  REDUCCION 
y REGLA  DE  CRAMER;  y finalmente  la 
solución  GRAFICA  y ANALITICA,  de 
cualquier  sistema,  tan  sólo  con  introducir 
los  coeficientes,  en  orden,  de  x,  y,  término 
independiente  de  las  dos  ecuaciones  (seis  en 
total). 


La  solución  gráfica  se  da  en  el  entorno 
(-10.4-10). 

Las  sentencias  10  a 30  son  para  presentar 
el  programa,  90  a 100  es  una  subrutina 
camuflada,  1 10  a 170  es  el  menú,  180  a 190 
es  el  estudio  y paso  a la  opción  marcada, 
200  a 590  se  muestran  los  repasos  con 
ejemplos  de  los  distintos  métodos  de 
resolución. 

En  la  sentencia  1000  comienza  el  pro- 
grama propiamente  dicho  y es  para  intro- 
ducir los  coeficientes  de  las  dos  ecuaciones, 
todos  seguidos  (separados  por  comas,  claro 
está)  los  seis.  En  1010  hace  el  estudio  de 
compatibilidad  de  las  ecuaciones  y de  no 
tener  solución  te  lo  indica  (evitando  mensa- 
jes de  error).  En  1020  calcula  los  determi- 
nantes (algoritmo  empleado)  y en  1050  a 
1060  te  calcula  las  soluciones,  las  redondea 
en  las  milésimas  y las  prepara  para  introdu- 
cir en  el  modo  GRAPHIC  2. 

De  1 100  a 1220  calcula  el  gráfico  y te  lo 
da  en  pantalla  ayudado  de  la  subrutina 
5000  que  calcula  las  rectas  punto  a punto. 

Lo  siento  por  los  usuarios  del  C-64,  pero 
sólo  he  llegado  a poseer  el  VIC-2  y de  los  de 
antes,  caros.  ■ 


RESOLUCION  DE  ECUACIONES 

5 REM,,FELCA[ÜÜNM+  3 CARTAGENA" 

1 0 PR I NT " [ CLP  3 [ CRSRD 3 [ 5SPC 3 RESOLUC 1 0 
N [ SPC 3 DE " : PR I NT " [ CRSRD 3 S I STEMAS [ SPC 3 
DE [SPC 3 ECUACIONES" 

20  PR I NT " [ 2SPC 3 CON t SPC  3 DOS [ SPC  3 1 NCÜG 
MITAS" 

30  PR I NT " [ 3CRSRD 3 [ SPC  3 AX+B1 V C SPC  3 = [ SPC  3 
C [ CRSRU 3 [ SH I FT I ] [ CRSRL  3 [ CRSRD H SH I FT- 3 
[ CRSRL  3 [ CRSRD  3 [ COMMQ 3 " : PR I NT " [ SPC 3 DX 
+E V [ SPC  3 = [ SPC  3 F [ SH I FT- 3 [ CRSRL  3 [ CRSRD 3 
[ SH I FTK  3 [ 5CRSRD  3 " 

90  PR I NT " [ 3SPC 3 PARA [ SPC 3 SEGU I R [ SPC  3 P 
IJLSA " : PRINT"  [ CRSRD 3 [ 7SPC 3 [ C0MM+  3 RETU 
RNCCÜMM+3 " } 

100  GETA*  IFA$OCHR$<.  13)THEN100 
110  PR I NT " [ CLP  3 [ CRSRD 3 [ 5SPC 3 [ C0MM+ 3 0 
PC I ÜNES [ C0MM+  3 " 

1 20  PR I NT " [ CRSRD 3 [ CQMM- 3 1 -REPASAR [ SPC 3 
METODO [ SPC 3 DE " • PR I NT " [ 5SPC 3 [ CÜMM£ 3 I G 
UALAC I ÜNC  C0MM£ 3 " 

1 30  PR I NT " [ CRSRD 3 [ C0MM- 3 2-REPASAR [ SPC  3 
METODO [ SPC  3 DE " : PR I NT " [ 5SPC 3 C C0MM£  3 SU 
ST I TUC I ON [ C0MM£  3 " 

140  PR I NT " [ CRSRD  3 [ CÜMM- 3 3- REPASAR [ SPC 3 
METODO [ SPC  3 DE " : PR I NT " [ 5SPC 3 [ C0MM£ 3 RE 
DUCC I 0N [ C0MM£ 3 " 

150  PR I NT " [ CRSRD  3 [ CÜMM- 3 4-REP AS AP C SPC 3 
METODO [ SPC  3 DE " : PR I NT " [ 3SPC 3 C C0MM£ 3 RE 
GL A [ SPC 3 DE [ SPC  3 CRAMER [ CÜMM£ 3 " 

1 60  PR I NT " [ CRSRD 3 [ COMM- 35-RESOLUC I ON 
[ SPC  3 GR  AF I C A " = PR  I NT  " [ 5SPC  3 V [ SPC:  3 ANAL 
ITICA" 

170  PR I NT " [ 3CRSRD 3 [ 2SPC 3 MARCA [ SPC  3 TU 

[ SPC  3 OPC 1 0N " : I NPUT " AQU I " ; 0 

180  I F Ü< 1 0RCO5THEN 110 

1 90  ÜN0G0T 0200  > 300 . 400 , 500 ..  1 000 

200  PR I NT " [ CLP  3 [ C0MM+ 3 METODO [ SPC 3 DE [ SPC  3 

I GUAL AC 1 0N [ C0MM+  3 " 

210  PRINT" TENEMOS [ SPC 3 QUE [ SPC 3 DESPE J 


VIC-20  + SUPERXPANDER  CON  3K  RAM 


FELCA  - CARTAGENA 


“RESOLUCION  DE  ECUACIONES” 


C-64 


Juan  Carlas  LOREN  - Leganés  (MADRID) 


Os  envío  este  programa  al  que  he  Ha- 
llado “Boggle”,  por  su  parecido  con  dicho 
uego.  El  programa  se  habría  podido 
impliar  a dos  jugadores  o haberlo  variado 
Je  muchas  formas  y así  hacerlo  más  com- 
pleto, pero  he  creído  más  conveniente 
Jejarlo  así,  porque  ampliarlo  demasiado 


puede  dar  lugar  a que  más  de  uno  de  se 
asuste,  al  ver  demasidado  “rollo”  impreso 
para  un  simple  juego,  teniendo  en  cuenta  lo 
pesado  que  es  digilar  un  programa. 


El  mane|o  es 
de  lo  más  sencillo 

Al  ejecutar  RUN,  en  la  parte  izquierda  de 
la  pantalla  se  dibuja  una  matriz  con  unos 
puntos,  que  seguidamente  se  rellena  con 
letras  al  azar  gracias  a la  instrucción 
“RND”.  Una  vez  rellena  dicha  matriz 
podemos  empezar  el  juego  digitando 
alguna  palabra.  Las  letras  de  dicha  palabra 
serán  impresas  en  la  pantalla,  sólo  si  se 
encuentran  dentro  de  la  matriz  citada,  a la 
vez  que  desaparecerán  de  ésta  dibujando  un 
espacio  en  su  lugar.  Si  digitamos  alguna 


letra  que  no  exista  se  nos  advertirá  de  este 
hecho,  con  el  mensaje  “letra  inexistente” 
que  aparecerá  en  la  pantalla  algunos 
segundos;  igualmente  si  digitamos  alguna 
tecla  que  no  pertenezca  al  abecedario,  apa- 
recerá el  mensaje  “digite  sólo  letras”. 
Cuando  hayamos  concluido  la  palabra, 
pulsaremos  “return”  y se  nos  dará  nuestra 
puntuación  hasta  ese  momento,  a la  vez 
que  se  nos  preguntará  si  deseamos  conti- 
nuar. En  caso  de  que  le  respondamos  “S“, 
podremos  continuar  digitando  otras  pala- 
bras con  las  letras  que  aún  existan  en  la 
matriz. 

Hay  que  advertir  que  las  palabras  no 
deben  ser  nunca  mayores  de  dieciocho 
letras,  porque  en  ese  caso  el  programa  salta 
a la  rutina  de  fin  igual  que  si  hubiésemos 
pulsado  “rcturn”.  ■ 
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360  PR I NT  " C CRSRD  ] DESPE JRNDO  C C0MM+  ] X C COMM+  ] 

, TENEMOS  M : PR I NT " C SPC ] 3X [ SPC ] * C SPC ] 2 1 
C 2SPC ] =>  C 2SPC ] C C0MM+ ] X=7  C CÜMM+ ] " 

370  PR I NT " C CRSRD  3 SUST I VU VENDO C SPC ] X C SPC ] 

POR  CSPC17" : PRI NT " TENEMOS  C SPC ] EL  C SPC 1 
VALOR  C COMM+ ] V* 1 2 C COMM+ ] H 
390  GOTO90 

400  PR I NT  " C CLR ] C COMM+ ] METODO [ SPC ] DE  C SPC ] 
REBUCC I ON  C COMM+ ] M 

410  PR I NT 1 M C CRSRD ] TENEMOS  í SPC  3 QUE [ SPC 3 
CONSE GU I R " PR I NT " QUE  C SPC  3 LOS  C SPC  3 COE 
F I C I ENTES "PRI NT " DE  í SPC  3 UNA [ SPC  3 M I SM 
A C SPC 3 VARI ABLE" 

420  PR I NT " SEAN [ SPC 3 1 GUALES C SPC  3 V C SPC  3 
S I GNO " : PR I NT " CONTRAR 1 0 ; AHORA [ SPC 3 SUM 
AR  " 

438  PR I NT " [ 4SPC ] C 2C0MM+ ] EJEMPLO I 2CÜMM+ 3 

II 

440  PRI NT " [ CRSRD 3 1 SPC 3 X+5 Y I SPC  3 = I SPC 3 
1 3 1 CRSRU  3 1 SH I FT 1 3 1 CRSRD  3 [ CRSRL 3 1 SH I F T- 3 

II 

450  PR I NT  M [ CRSRD  3 [ SPC 3 X- 1 SPC  3 Y I SPC  3 = 

[ 2SPC 3 7 I CRSRU 3 [ COMMQ 3 I CRSRD 3 C CRSRL  3 C SH I FT- 3 
[ CRSRL 3 1 CRSRD 3 C SH I FTK 3 C CRSRU  3 C SPC  3 [ SH IFTV 3 
I SPC  3 5 , NOS  I SPC  3 Dfi " 

460  PR  I NT  " [ CRSRD  3 [ SPC  3 X+5V I SPC  3 = I SPC 3 
1 3 C CRSRU 3 I SH I FT I 3 C CRSRD  3 [ CRSRL 3 [ SH I FT- 3 

II 

470  PR I NT " C CRSRD 35X-5YI SPC  3 = I SPC  3 35 1 CRSRU 3 
[ COMMQ 3 C CRSRD 3 1 CRSRL 3 [ SH I FT- 3 C CRSRL 3 
[ CRSRD 3 C SH I FTK  3 [ 2CRSRU 3 +=  t SPC  3 6X [ SPC  3 
= [ SPC 3 48  C CRSRD 3 1 7CRSRL 3 1 COMM+ 3 X C SPC  3 
= C SPC  38IC0MM+  3 " 

480  PRINT"! CRSRD  3 SUST I TUVENDO I SPC  3 X I SPC  3 
PORISPC38" = PR I NT " TENEMOS C SPC 3 EL t SPC 3 
VALOR I COMM+ 3 Y=1 C COMM+ 3 " 

490  GOTO90 

500  PRI NT " C CLR 3 1 2SPC 3 I COMM+  3 REGLA I SPC 3 
DE  C SPC  3CRHMER I CQMM+ 3 " 

510  PRINT" ICRSRD3 ISPC3AX+BVISPC3ctSPC3 
C C CRSRU  3 C SH I F T 1 31 CRSRL  3 1 CRSRD  3 1 SH I FT- 3 
I CRSRL  3 1 CRSRD  3 1 COMMQ  3 " PR I NT " I SPC  3 DX 
+E Y I SPC  3 * I SPC  3FISHIFT-3C  CRSRL  3 1 CRSRD  3 


CSHIFTK3 " 

520  PR I NT " C CRSRD  3 FORMAMOS I SPC  3 DETERM 
INANTES" ; PRINT" [ 3SPC 3 1 SH I FT- 3 AB  I SH I FT- 3 
I3SPC3 ISHIFT-3ACISHIFT-3 I3SPC3 ISHIFT-3 
CBCSHIFT— 3 “ 

530  PRINT” ISPC3T=ISHIFT-3 I2SPC3 ISHIFT-3 
ISPCIS^ISHIFT-I I2SPC3 ISHIFT-3 ISPC3R= 
ISHIFT-3  C2SPC 3 CSHIFT- 3 " : PRINT" I3SPC3 
I SH  I FT-  3 DE  I SH  I FT-  3 1 3SPC  3 1 SH  I FT-  3 DF  ISHIFT-3 
C3SPC3 ISHIFT-3FEISHIFT-3 " 

540  PR I NT ” I CRSRD  3 1 SPC  3 VALORES I SPC  3 DE 
I SPC 3 VARI ABLES" 

550  PRINT"! 2CRSRD 3 1 2SPC  3 I COMM+  3 X I COMM+ 3 
- 1 SPC  3 1 SH I FT*  3 I CRSRU  3 1 CRSRL  3 R 1 2CRSRD  3 
I CRSRL  3 T I CRSRU  3 1 5SPC 3 1 COMM+ 3 Y I COMM+ 3 
= I SPC  3 1 SH I FT#  3 1 CRSRU  3 1 CRSRL  3 S I 2CRSRD  3 
CCRSRL3T" 

590  GOTO90 

1000  PR I NT " I CLR  3 MARCA I SPC  3 LOS I SPC  3 CO 
EFICIENTES"  INPUTA, B, C, D, E, F 
1010  I F A7D=B/ETHENPR I NT “ I SPC  3S0N I SPC  3 
RECTAS I SPC  3 PARALELAS 1 4CRSRD  3 " : GOTO90 

1 020  T=A#E-B#D : R*C#E-B#F : S*A#F-C#D 
1 050  X=R/T : X= I NT ( X# 1 000+ . 5 > / 1 000  X*- 
"X*"+STR$<X> 

1 060  Y=SXT : Y= I NT ( Y# 1 000+ . 5 ) / 1 000 : Yí * 
"Y="+STR*<Y> 

1070  GRAPHIC2: DRAU2, 512, 0TO512, 1023: 

DRAW2 , 0 , 5 1 2T0 1 023 ,512 
1 1 00  F0RK=ST0975STEP5 1 PGINT2, K, 524 : 

NEXTK : F0RJ=6T0975STEP51 ; P0INT2, 524, J 
NEXTJ 

1140  GOSUB5000 
1150  A=D : B=E : C=F 
1160  GOSUB5000 

1170  CHARO, 9, "Y"  CHAR9 , 19, "X"  CHARO, 

0 ,X$  CHAR1..0  , Ví 

1210  GETA$  : IF  AíOCHRf  < 1 3 ) THEN 1210 

1 220  GRAPH I CO ; GOTO 1 1 0 

5000  FGRV= 1 OTO- 1 0STEP- . 125  U=<(C-B#V 

)/A+10>#51 ; IFLK0ORU>1023THEN5050 

5030  Z=< 1 0-V  > #5 1 : PO I NT 2 , U , 2 

5050  NEXTV  RETURN 


BOGGLE 

1 REM  ********** 

2 REM  * BOGGLE  * 

3 REM  ********** 

5 DIMP< 100) : BIMQC 100) 

10  PRINT" [ CLR 3 " 

20  0=1024 

30  FORT* 1 T 020  POKER , 46 ; 0=R+ 1 : NEXTT 
40  0=0+60: I FR> 1 823THENGOTO60 
50  GOTO30 
60  0= 1 065 

70  FORT=1TO10 • POKER,  46 : 0=0+2 : NEXTT 
80  0=0+60: I F0> 1 784THENG0T0 1 00 
90  GOTO70 

100  0=1864 :X=22E=0 
110  FORT=1TO10 ; P(E)=0 
1 20  G= I NT < 1 +RNB C 5 > *26 ) 

130  POKER , G : 0=0+2 : Q ( E ) =G 
140  E=E+1  NEXTT 

150  0=0+60: IF0>1724THENGÜTO170 
160  GOTO110 

1 70  PR I HTTRB ( 22) " C RVSON ] B I G I TE  C SPC  ] P 
0L0BR0 C RVSOFF 3 [ CRSRB ] " 

190  0*="" 

200  GETRÍ : IF0$=" "THEH200 

220  B=0SC C 0*  > : E=0 : I FB= 1 3THENG0T0 1 500 

240  IFB>90ORB<65THENGOTO1200 
260  IFQ<E)=B-64THENGOTO300 
280  E=E+1 : IFE290THENGOTO1300 
290  G0T026Ó 

300  PRINTTRBCX) : X=X+1 : PRINTRi : G03UB1 
100 


320  W=PÍE)  : POKEW,  32 ; Q<E)*0  : S*S+1  L=L 
+ 1 

340  I FS= 1 8THENG0T0 1 500 
360  GOTO 190 

1000  POKE781 , 22 : P0KE782, 1 POKE783,0: 
SVS65520  ; RETURN 

1 100  P0KE781 , 3 : POKE782, 1 : P0KE783, 0 : S 
VS65520 : RETURN 
1200  GOSUB1000 

1210  PRINT " BI GI TE C SPC 3 SOLO [ SPC 3 LETR0 

S"  FORT* 1T0 1000: NEXT 

1220  FORT* 1904TO 1983 : POKET  , 32 : NEXT 

1240  G0SUB1 109 

1250  GOTO 190 

1300  GOSUB 1 000 

1310  PRINT "LETRA [SPC 3 INEXISTENTE" : FO 
RT=1TO1000 : NEXT 

1 330  FORT* 1 904TO 1 983 : POKET , 32 : NEXT 
1340  GOSIJB 1100 
1350  GOTO  190 
1500  GOSUB 1000 

1510  PRINT" SU [ SPC 3 PUNTURC I GN [ SPC 3 ES [ SPC 3 

DE [ SPC  3 "L" [ SPC  3 PUNTOS " : S=0 

1520  PRINTTRBí 1 ) "BESE0C SPC 3 CONTINUAR 

CSPCKS/N)?" 

1522  GETB* : IFB$=" "THENG0T01522 
1525  I F B$= " N " THENPR I NT " [ CLR  3 " : ENB 

1527  I FBÍ * " S " THENGOTÜ 1 530 

1528  IFBÍO"S"0RB$O"N"THENBÍ*""  ;GOT 
0 1 522 

1 530  FORT* 1 904TO 1 979 : POKET , 32 : NEXTT 
1560  GOSUB 1100 

1570  FORT* 1 1 65T0 1183: POKET , 32  = NEXT  T 
1580  X*22: GOTO 190 


VIC-20 


René  RODRIGUEZ  LLEONART  - Hospitalet  (BARCELONA) 


1.  El  programa  que  os  envío  con  la  carta  es 
lo  último  que  he  hecho  y,  aunque  no  des- 
taca por  su  originalidad,  sí  tiene  la  ventaja 
o el  aliciente  de  permitir  que  jueguen  dos 
personas  a la  vez. 

La  puntuación  depende  de  la  distancia  a 
la  que  se  encuentre  la  vave  y el  número  de 


misiles  aumenta  en  uno  por  cada  75  puntos. 
El  juego  termina  cuando  los  dos  jugadores 
han  disparado  todos  sus  misiles  y gana 
aquél  que  ha  conseguido  más  puntos.  Las 
bases  de  lanzamiento  del  jugador  de  la 
derecha  corresponden  a los  números  7,  8 y 
9 del  teclado  y los  números  1,  2 y 3 son  para 
el  jugador  de  la  izquierda. 


El  juego  no  tiene  más  secretos  y pienso 
que  por  su  sencillez  podréis  cambiar  lo  que 
queráis  para  amoldarlo  a vuestro  gusto, 
lento  18  años.  ■ 

P.D.:  Se  puede  dar  un  poco  más  de  rapidez  al 
juego  añadiendo  la  línea:  203  I L'D  < >1 ANDL 
O-1THENI20 


UFO 

1 P0KE56 , 28 : P0KE52 , 28 

2 FORT =755 1 T0763 1 : POKET  , PEEK  < T +25600 
) : NEXT 

3 FORT =7424TÜ743 1 : POKET , PEEK <T +25600 
) : NEXT 

4 GOSUB 1000 

5 P0KE36878 ,15: y =7680 : 0*4 : U=6  = K 1 =4 : K 
2=6 : BY=@ 

6 PRINT" [CLR 3" 

10  PÜKE36879  ■ 238 

20  0(1 > =78 13  0(2  > =7923  = A<  3 ) *8033 
30  B < 7 ) =7854 : B ( 8 ) =7964  B < 9 > *8074 


40  F0RT=1 T09 : POKER < T> , 3 : POKEBC T ) , 5 : P 
OKER ( T > +30720  , 2 : PÜKEBCT >+30720, 2 : NEX 
TT 

100  Z= I NT < RNB < 0 ) *2 > + 1 : BV= 1 : IFZ=1THEN 
P=484  BY=- 1 

110  X* I NT ( RNB  < 0 > * 1 0 > +6 

1 20  P0KEV+X+P+Y*22 , 1 : POKER ( Q )+B, 0 ¡ PO 
KEB  < IJ ) +L , 2 : P0KE36874 , 240 : GOSUB270 : PO 
KEV+X+F'+Y*22, 32 

1 2 1 POKEBC  U > +L , 32 : POKER  C Q)+B , 32 : POKE 
36874,0 

130  IFB>18THENB=0'Q=0: IFK1=4THENIFE1 
=0THENGOSUB400 

1 40  I FL<- 1 8THENL=0 : U=6 : I FK2=6THEN I FE 
2=0THENGOSUB400 
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1 50  GETfl*  : IFD=0THENIFVRL<fl*XKlTHENQ 
= VAL.  < fií  > : I F QO0THENC 1 =C  1 + 1 

1 85  I FL=0THEN I FVRL < ñ* > >K2THENU=VnL < A 

í>  :C2«C2-fl 

186  V=Y+BV  : I FQO0THEND=D+ 1 

187  I FU06THENL=L- 1 

1 90  I FZO 1 THEN I FV>23ÜRVO3THENV«0  : P= 

0 : G0T 0 1 00 

191  I FZ= 1 THEN I FV>0GRV<-22THENV=8 • P=0 
• GOTO 100 

200  El-I NT ( F’ñ/75 > + 1 0-C 1 : E2=  I NT ( PE/75 
> + 1 8-C2 

282  PR I NT " [ HÜM ] C BLK 1 C 5CRSRR ] C 2CRSRB 3 

" ; PR " [ 2CR8RR ] C 2SPC ] " PB 

205  PR I NT " C 1 7CRSRD ] C BLK 3 C 2CRSRR 3 C 2SPC 3 

[ 3CRSPL 3 "El : PR I NT " [ 3CR8RL 3 [ 2SPC 3 C 3CRSRL 3 

"E2 

210  GOTO 120 

270  I FPEEK < V+X+Y#22+P > =0THEN I =0 : GOTO 
500 

280  I FPEEK <V+X+Y*22+P)*2THEN  1=3  '■  GOTO 
500 

281  PE TUR N 

400  PDKE36869 , 240 : PR I NT " [ CRSRU 3 [ 5CRSRR 3 
[ VEL  3 NO [ SPC 3 M I SS 1 1 .8 ! ! • " 

405  FÜRP= l T 05 • FORM= 1 80TÜ235STEP3 • PÜK 
E 36876.-  M FORN»  1 TÜ5  ; NEXTN  • NEXTM  • P0KE3 
6876  - 0 

4 1 0 FGRM= 1 TOS : NEXTN : NEXTP 
415  I FE 1 «0THENK 1 =0 


420  IFE2=0THENK2=9 

430  PR I NT " [ CRSRU 3 C 1 9SPC 3 " : PÜKE368 69 , 

255 

440  I FE 1 =0RNDE2=0THENPÜKE36869 , 240 : E 
ND 

450  RETIJRN 

499  PÜKE36878..  15 

500  P0KEV+X+22*Y+P , 4 : P0KE36877 , 220 ■ F 
QRN= 1 5TO08TEP- 1 • P0KE36878, N : F0RM=1TÜ 
300 : NEXTN 

50 1 NEXTN : P0KE36877 , 0 : P0KE36879 , 1 5 

509  P0KEV+X+Y*22+P,2 

510  IFI=0THENPA=PA+10*D : 0=4  : D=0 
515  I F I =3THENPB=PB~  1 ML  ' U=6 : L=Ñ 
520  PÜKEV+X+22*V+P , 32  * V=0 

525  RETURN 

1000  FOR 1=71 68T 072 1 5 

1001  RERDRPÜKEI.R 

1002  NEXTI 

1010  DRTR 1 60 , 56 , 1 90 , 63 , 1 90 , 56 , 1 60 , 0 
1015  DRTR24 , 60 , 23 1 , 1 26 , 24 , 60 • 1 02 , 1 95 

1 024  DRTR  0 , 5 , 28 , 1 25 , 252 , 1 25 , 28 , 5 

1 025  DRTR252 , 252 ,12, 30 , 30 , 1 2 - 252 , 252 

1 026  DRTR24 , 24 , 24 , 255 , 255 , 24 , 24 , 24 

1 027  DRTR 1 26 , 1 26 , 96 , 240 , 240 , 96 , 1 26 , 1 
26 

1 040  PÜKE36869 , 255 
1050  RETURN 


Por  Antonio  Pont 


Como  su  nombre  dice  es  como  las 
máquinas  de  los  bares. 

El  juego  consiste:  Primero,  al  teclear 
RUN,  en  pantalla  sale  ECHE  MONEDA  y 
“pulsar  P’\  luego  se  borra  la  pantalla  e 
indica  ,en  dos  recuadros  “STOP"  y 
“START"  y un  signo  parpadeando  al  lado 
de  Start.  Pulsamos  S y el  signo  pasa  al  lado 
de  Stop  y empieza  a dar  vueltas  el  primer 
tambor. 

Ahora  hay  dos  opciones,  que  lo  paremos 
nosotros  o que  pare  solo. 

Si  lo  paramos  nosotros,  pulsando  S,  o se 
para  sola  pasa  al  siguiente  tambor  hasta 


llegar  al  tercero  que  al  pararlo  pueden 
haber  2 opciones. 

1.  — Que  salgan  avances,  y que  se  pueda 
avanzar  un  tambor  pulsando  el  número  de 
su  columna,  o si  no  se  quiere  avanzar,  pul- 
sar 4.  Una  vez  hecho  esto  el  VIC-20  da  los 
resultados. 

2.  — Que  dé  los  resultados  directamente. 

Según  los  resultados,  de  la  página 

siguiente,  puede  dar  dos  opciones. 

1. — Que  haya  tocado  uno  de  los  resulta- 
dos y entonces  indica  en  la  pantalla  el 
dinero  que  ha  tocado,  el  dinero  que  tiene  en 
total  y si  quiere  continuar  o no. 


2. — Si  no  le  ha  tocado  ningún  resultado 
entonces  puede: 

2a.  si  tiene  dinero  en  el  bote  indica 
el  dinero  total  y si  quiere  continuar. 
2b.  Si  no  tiene  dinero  indica  que  en 
el  bote  hay  0 pts.  y GAME  O VER. 

El  programa  es  un  peoo  complicado  de 
explicar  pero  si  se  prueba,  en  seguida  se 
entiende. 

Si  tuviera  ampliación  hubiera  hecho  que 
hasta  que  la  máquina  no  estuviera  llena  no 
diese  premios,  hubiera  puesto  música  y más 
diversiones. 


TRAGAPERRAS 

1 REM  ANTONIO  FONT 

2 REM  BARCELONA 

3 REM 

8 P0KE36879, 28 

10  PRINT" CCLR3 " 

11  01'Z*1 

12  PRINT" [ HÜM ] C 1 0CRSRD 3 C 3CRSRR 3 [RED 3 
HECHE i SPC 3 25 L SPC 3 PTS " : PR I NT " [ 3CRSRR I 

C 2CRSRB3 C GRN 3 PULSE C RVSON 3 C RED  j P [ RVSOFF 3 
CBLU3" 

13  GETR$: IFA$="P"THEN15 


14  GOTO 13 

15  PÜKE36878, 15 • FGRX=135TÜ241 : PÜK E 36 
877, X : NEXT : R=25 : PQKE36877, 0 

16  PRINT" CCLR3" 

20  PR I NT " [ HÜM 1 [ CRSRD 3 C SPC 3 [ VEL 3 i RVSON 3 
[ 63PC 3 C RVSOFF  3 [ 3SPC 3 [ RED  3 [ RVSON 3 C 7SPC 3 
[RVSOFF 3" 

21  PR I NT " C SPC  3 [ VEL 3 C RVSON 3 L SPC 3 [ RVSOFF  I 

[ BLK  3 STOP [ VEL  3 [ RVSON ] [ SPC 3 i RVSOFF  3 C 3SPC 3 
[ RED  3 [ RVSON J [ SPC J C RV30F F 3 [ BLK 3 ST HRT L RE  U 3 
[ RVSON 3 [ SPC  3 [ RVSOFF ] [ BLU 3 " 

22  PR I NT " [ SPC 3 C VEL  3 [ RVSON 3 C 6SPC 3 L RVSOFF 3 


40/Coni modore  World  Julio/ Agosto  1984 


C 3SPC ] [ RED  K RVSON 3 C7SPC3  C RVSOFF ] C BLU J 

•i 

30  GETfi$ : IFR$*"S"THEN50 

31  PR I NT " C HOM 3 C 2CRSRD 3 C 1 8CRSRR 3 C RED J 
CSHIFTQ3 M i 1 PÜKE36876 , 200 • FÜRX= 1 T ü 1 00 
: NEXTX 

32  PÜKE36876,0 

33  PR I NT  M C CRSRL  3 C SPG  3 “ 

40  GOTO30 

50  C=C*1 : IFC=30THENZ=8-M=P 

51  Ü«INT<<RND<1  >#10)4-1  >:F*F+1  • IFFOl 
00THENGOTO60 

52  1 FF= 1 00THENPR I NT  M C HÜM J C 1 5CRSRD J " 

53  IFZ=1 THENM=P 

54  IFZ*8THENN«P 

55  IFZ=15THENÜ=P 
58  GÜTG590 

60  PR I NT " C HOM 3 C 2CRSRÜ 3 C 8CRSRR 3 C VEL JCSHIF TQ 3 
C BLU  3 '• ; = FÜRX= 1 87TO200 • P0KE36876 , X : HE 

XTX 

61  PR I NT " C CRSRL  3 C SPC 3 M : PQKE36876 ,0:1 
FO30THEN63 

62  GETB$ : IFB$=MS"RNDC<=30THEHZ=8 : C=3 

0 : M=P 

63  IFO60THEN65 

64  OETBf  : I FBí  = " S 11  RNDC>30THENZ=  1 5 : C=6 
0 : N=P 

65  IFC=60THENZ=15 : N=P 

66  GETB$  : IFB$~"S"THENÜ=P  : GÜTG562 

67  I FC=90THENÜ=P : GÜT0562 

68  PR I NT “ [ HOM  3 í 5CRSPD 3 " ; 

69  ONUGOTO70 , 120,1 70 , 220 ,270, 320 • 370 
, 420.470,520 

70  PR  1 NTSPC < Z > M C SH I FTO 3 1 4C0MMT 3 C SH 1 F T'P  J 


280  PR I NTSPC < Z > " C COMMG 3 C SPC  3 [ RVSON  3 C GRN 3 
C SH I FT£  3 C COMM# 3 C RVSOFF  3 C BLU  3 [ SPC  3 C COMMM 3 

H 

290  PR I NTSPC ( Z) M C COMMG 3 C SPC 3 [ GRN  3 CSHIFTE  3 

[ CÜMN*  3 C BLU 3 [ SPC  3 C COMMM  3 M 

300  PR  I NTSPC < Z > M [ SH  I FTL  3 C 4COMM0  3 C SH  I FTC-  3 

•i 

310  P=5 : GOTO50 

320  PR I NTSPC < Z > M C SH I FTO 3 C 4C0MMT 3 1 SH I FTP 3 

H 

330  PR  I NTSPC  < Z > 11 C COMMG  3 C ELK  3 * L 2SPC  3 [ VEL  3 
* C BLU 3 C COMMM 3" 

340  PR I NTSPC < Z > " [ COMMG  3 C CVN 3 1 i 2SPC 3 C RED  3 
* C BLU  3 [ COMMM  3 ” 

350  PR I NTSPC < Z > “ CSH I FTL  3 C 4COMM0 3 C SH I FT0 3 

•i 

3 6 0 P = 6 ; G O T O 5 0 

370  PR I NTSPC < Z > " C SH I FTO 3 C 4CÜMMT ] L SH I FTP  3 

ii 

380  PR I NTSPC  < Z ) " C COMMG  3 C RED  3 C SH I FTS  3 
L SPC 3 L SPC 3 L SH I F TS  3 [ BLU 3 C COMMM 3 " 

390  PR I NTSPC (Z)"C COMMG 3 [ REDI C SH I FTS 3 
C 2SPC 3 [ SH I FTS  3 [ BLU  3 C COMMM  3 " 

400  PR I NTSPC < Z > ° C SH I FTL 3 C 4COMM0 3CSHI FT0 3 

H 

410  p=7 : GOTO50 

420  PR I NTSPC C Z > " C SH I FTO  3 [ 4C0MMT 3 C SH I FTP  3 
588  IFV$="3"THENZ=15  : C*=60  : F=98 : G0TÜ5 
0 

(Pasa  a pág.  44) 


80  PR I NTSPC < Z > " C COMMG 3 C SPC 3 [ RVSON J L CVN J 
C SHI FT£ 3 í COMM# 3 í RVSOFF 3 C BLU 3 L SPC 3 C COMMM 


9ü  PR I NTSPC < Z > " C COMMG  3 í SPC  3 í CVN 3 C COMM* 3 
[ SH I FT£  3 C BLU  3 C SPC 3 C COMMM 3 " 

100  PR I NTSPC < Z>" CSH I FTL]  [4C0f1Mi*  J [SHIFT0] 

110  P*1  '■  GOTO50 

120  PRINTSPC(Z) " [SHI FTO] C4C0MMT ] CSH I FTP] 

II 

130  PR I NTSPC < Z > " C COMMG ] C SPC ] [ BLK ] C RVSON ] 

C 2C0MM+ ][ RVSOFF ][ BLU ][ SPC ] C COMMM ] " 

140  PR I NT SPC < Z > " C COMMG ] C SPC ] [ BLK ] t RVSON ] 

C 2C0MM+ ] C RVSOFF ] C BLU ] C SPC ] C COMMM ] " 

150  PR I NTSPC < Z ) " C SH I FTL ] C 4CGMM8 ] [ SH I FT0 ] 

II 

160  P=2 : GOTO50 

170  PR I NTSPC < Z > ” C SH I FTO  3 C 4C0MMT 3 [ SH I F TP  3 

ii 

180  PR I NTSPC < Z > " C COMMG ] C SPC ] C PUR ] [ RVSON ] 

C SH I F TIJ ] C SH  I F T I ] [ RVSOFF  ] [ BLU  ] C SPC ] C COMMM ] 

II 

1 30  PR  I NTSPC  ( Z ) " C COMMG  ] C SPC  ] C PUR  ] [ RVSON  ] 

C SH 1 FT J ] C SH I FTK ] [ RVSOFF ] C BLU ] [ SPC ] C COMMM ] 

II 

200  PRI NTSPC (Z ) " C SH IFTL ] 1 4COMM0 ] C SH I FT@] 

II 

210  P=3 : GOT 050 

22Ü  PR I NTSPC < Z ) " C SH I FTO 3 C 4C0MMT 3 C SH I FTP  3 

■i 

230  PR I NTSPC < Z > " C COMMG ] C RED ] [ RVSON ] [ SH I FTO ] 
C 2C0MMT ] [ SH I FTP ] [ RVSOFF ] [ BLU ] C COMMM ] 

II 

240  PR I NTSPC <Z)"C COMMG] [RED] [RVSON] CSH IFTL] 
[ 2CÜMMC* ] [ SH I FT0  ] [ RVSOFF  ] [ BL  U ] [ COMMM  ] 

II 

250  PR I NTSPC < Z > " [ SH I FTL ] C 4COMM0 ] [SHIFT0] 

II 

260  P=4  GOT 050 

270  PR I NT SPC C Z ) " [ SH I FTO ] C 4C0MMT ] [ SH I FTP ] 


á 


REG1STEH  LATELY 
CONTINENTAL,  S.A. 
ir  Balmes-297,  pral.  2 - A 
BARCELONA-6 
^ Teléf.  (93)  200  18  99 


NUESTRA  EMPRESA 
AL  SERVICIO  DE  TODOS 

DEPARTAMENTO  COMERCIAL: 

— Microprocesadores  y ordenadores  de  gestión  (gama 
Commodore)  para  el  particular  y Empresa. 

— Programas  educativos,  de  juegos  y de  diferentes  aplica- 
ciones. (Gestión,  contabilidad). 

DEPARTAMENTO  DE  ESTUDIOS: 

— Cursos  Programación  Basic,  y Cobol. 

— Cursillos  de  grabación. 

— Prácticas  con  ordenadores  y micro  en  la  propia 
Empresa. 
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Cuando  se  tiene  64  K de  memoria, 
una  magnífica  resolución,  16  colores, 
efectos  tridimensionales  con  sprites, 
un  sonido  equivalente  al  de  un 
sintetizador,  un  teclado  profesional 
con  62  caracteres  gráficos,  toda  una 
amplia  gama  de  periféricos,  la  más 
completa  gama  de  programas 
educativos,  profesionales  y de  video- 


juegos...; en  resumen,  cuando  se  es 
un  ordenador  personal  como  no  existe 
ningún  otro  en  el  mercado  y el  más 
vendido  mundialmente,  es  muy  difícil 
decir  sin  orgullo  que  eres  un 
Commodore-64. 

Claro  que  más  difícil  todavía  es  decir 
sin  orgullo  que  tienes  un  Commodore-64. 
¿Por  qué  no  lo  comprueba? 


COMMODORE  64 

LE  DA  ACCESO  A MUCHOS 

ACCESORIOS 


Unidad  simple  de  disco  (Monofloppy)  170  K. 
Cassette. 


COMMODORE  64 
LE  MUESTRA  PARTE  DE 
SUS  PROGRAMAS 


Plotter  e impresora,  4 colores, 
14  c.p.s. 


Impresora  matricial,  tractor, 

30  c.p.s. 

Interface  RS232. 

Joy  Stick. 

Paddle. 

Cursos  de  Introduc- 
ción al  BASIC. 


Utilitarios  y lenguajes 

MONITOR  LENGUAJE  MACRO  ASSEMBLER. 
MAQUINA.  PROGRAMMER’S 

FORTH.  UTILITIES. 

LOGO.  TURTLE  GRAPHICS  II. 

PILOT.  MASTER. 


CALC  RESULT. 

Hoja  electrónica  de  cálculo. 

EASY  CALC  RESULT. 

Versión  simplificada  del  CALC  RESULT. 

MAGIC  DESK. 

Proceso  de  texto  y gestión  de  ficheros. 
AGENDA  TELEFONICA. 


Programas  educativos 


MUSIC  MACHINE. 

MUSIC  COMPOSER. 

VISIBLE  SOLAR 
SYSTEM. 

SPEED/BINGO  MATH. 
FISICA  I. 
MATEMATICAS  I. 
HISTORIA  I. 

Juegos 

JUPITER  LANDER. 

KICKMAN. 

SEAWOLF. 

RADAR  RAT  RACE. 

TOOTH  INVADERS. 

LAZARIAN . 

OMEGA  RACE. 

LE  MANS. 

PINBALL 

SPECTACULAR. 

AVENGER. 

SUPERMASH. 


GEOGRAFIA  I. 
GEOGRAFIA  II. 
JUEGOS  EDUCATIVOS. 
TEMAS 

MONOGRAFICOS. 

CONOCIMIENTOS 

GENERALES. 

QUIMICA  I. 


FROGMASTER. 

GRID  RUNNER. 

ATTACK 

OF  THE  MUTANT 
CAMELS. 

THE  PIT. 

MR.  TNT. 

6 GAME  PROGRAMS. 
BINGO. 

ROOTING  TOOTING. 

MINESSOTA  FAT’S 
POOL  CHALLENGE. 


...  y seguimos  ampliando  la  lista 


El  ordenador  personal  de  la 
familia  más  potente 


Sistemas  operativos 

FILE/BOSS.  CP/M. 

Programas  de  aplicaciones 

EASY  SCRIPT. 

Proceso  de  texto  de  gran  potencia. 


commodore 

COMPUTER 

MICROELECTRONICA  Y CONTROL,  S.A. 
c/.  Taquígrafo  Serra,  7,  5.°.  Barcelona-29 
c./  Princesa,  47,  3.°  G.  Madrid-8 


( Viene  de  pág.  41.) 

590  I F I =5THENPR  I NT  " [ 5CRSRU  J C 1 4CRSRR 1 
4 [ 3CRSRR ] C RVSON ] C VEL ] C SPC 3 [ RVSOFF ] •' : 

1=4 : G0T0583 

591  I F I =4THENPR I NT “ C 5CRSRU ] C 1 0CRSRR ] 

3 C 3CRSRR ] [ RVSON ] C VEL ] C SPC ] C RVSOFF ] M : 

1=3 : G0T0583 

592  I F I =3THENPR I NT " C 5CRSRU ] C 6CRSRR ] 2 
C 3CRSRR ] C RVSON 3 C VEL ] C SPC ] C RVSOFF ] M : I 
=2 : G0T0583 

593  I F I =2THENPR I NT " [ 5CRSRU ] C 2CRSRR 3 1 
C 3CRSRR ] C RVSON  3 [ VEL ] C SPC ] C RVSOFF  3 " : I 
=1 : G0T0583 

594  I F I = 1 THENPR I NT H C 5CRSRU 3 [ 2CRSRR  3 í RVSON 3 
[ VEL 3 C SPC  3 C RVSOFF  3 " : I =0 : G0T0583 

600  I FM=6ñNDO«MflNDN*MTHENW*W+2500 : V= 

100 : GOTO800 

610  I FM= 1 0RNHN=MRNDO=MTHENW=W+450 : V» 

18 : GOTO800 

620  I FM=7ñNDN=MRNDO=MTHENW*W+300 ¡ V- 1 
2 : GOTO800 

630  I FM=3RNDN=MRNDÜ=6THENW=W+250 • V= 1 
0 : GOTO800 

63 1 I FM=5RNDM=NORO*5RNBO=NTHENW=W+50 
• V=2 : GOTÜ800 

633  I FM=6RNDÜ=7RNDN=MTHENU=W+  1 000  : V= 

40 : GOT 0800 

634  I FN=7ñNDM«NTHENW*W+500 : V=20 : GOTO 
800 

640  I FM=NRNDN=OTHENW=W+ 1 00 : V*4 : GOT 08 
00 

645  I FM=N0RN=0THENW=W+75 : V*3 ' GOTO800 


NOTICIAS 

COMMODORIANAS 


Los  Commodore 
por  los  Ministerios 


El  Centro  de  Proceso  de  Datos  del  Ministerio  de 
Educación  y Ciencia,  ha  conectado  a modo  de 
ensayo  un  VIC-20  y un  C-64  en  modo  TTY 
(terminales  teletipo)  al  UNIVAC  DTC  1100/80  el 
ordenador  central  del  Ministerio  para  toda  España. 
La  prueba  fue  todo  un  exitazo  y no  digamos  nada 
del  orgullo  que  sentimos  viendo  a nuestro  inefable 
V1C  y nuestro  no  menos  idolatrado  64  siguiendo  tan 
marchosamente  el  ritmo  del  gran  gigante  (y  sin 
perder  el  paso  por  un  segundo). 


¿Qué  otras  sorpresas  nos  tienen  guardadas  en 
cartera  nuestros  dos  queridos  “aparatitos”...? 


670  I FM*50R0=5THENW=W+25 : V= 1 : GÚTÜ800 
700  GOT O900 

800  PR I NT  " [ HOM 3 C 1 5CRSRD 3 C 22SPC  3 C 2 1 CRSRL 3 

H • 

810  FÜRJ=0TOV • F0RL*128T0255STEP1 1 : PO 
KE36874  ..  L 

820  B=B+1 : I FB=3THENB=0  P0KE36874 , 0 
830  NEXTL : PR I NT " C RED  3 C HOM  3 C 1 5CRSRD 3 [ 2CRSRR 3 
"H"  CSPC3  " "PTS"  '•  H=H+25  : NEXTJ : H=0  : FORO 
=1TO500  NEXTG 
840  G0TO910 

900  PR I NT “ [ HOM  3 [ 1 5CRSRD 3 C 22SPC 3 C 2 1 CRSRL 3 
C2CRSRD 3 " ’ 

9 1 0 PR I NT  M C RED  3 D I ÑERO C SPC 3 QUE C SPC  3 T I 
ENE [ SPC 3 EN  C 3SPC 3 C CRSRD 3 EL  C SPC 3 BOTE " W 

“PTS" 

920  I FW*0THENPR I NT " [ CRSRD 3 [ GRN 3 C SPC 3 
GRME [ SPC  3 OVER " : F0RG= 1 T0 1 000 : NEXTG : GO 
TOS 

930  PR I NT “ [ CRSRD 3 L GRN  3 QU I ERE [ SPC  3 CON 
TÍNUfiR?" 

940  GETE$ • IFE$=“S“THENW=W-25 : G0T08 
950  IFE$="N" THENP0KE36879 . 27 : PRINT" C BLU 3 
CCLR3 “ • END 
960  GÜTO940 

i< 

430  PR I NTSPC ( 2)"[ COMMG 3 [ RED ] C COMflD 3 t COMMF  ] 

[ VEL ] [ COMMD ] [ COMMF ] [ BLU ] C COMMM ] " 

440  PR I NTSPC < Z ) " [ COMMG ] C VEL ] [ CÜMMC ] [ COMMV ] 
t RED  3 C COMMC ] C COMMV  3 C BLU  3 [ COMMM 3 " 

450  PR I NTSPC < Z ) " [ SH IFTL 3 [ 4COMM0 3CSHIFT03 

II 

460  P=8 ; GOTO50 

470  PR I NTSPC < Z > " [ SH I FTÜ  3 [ 4C0MMT 3 L SH I FTP  3 

H 

480  PR I NTSPC  < Z ) " C COMMG 3 C GRN  3 C 4C0MMÉ 3 
C BLU 3 [COMMM 3" 

490  PR I NTSPC ( Z ) " C COMMG 3 [ GRN  3 [ RVSON 3 [ 4C0MML 3 
[RVSOFF 3 [BLU 3 [COMMM 3" 

500  PR I NTSPC <Z V [ SH IFTL 3 [ 4COMM0 3 CSHIFT03 

II 

510  P=9  '•  GOTO50 

520  PR I NTSPC < Z > " í SH I F TO  3 C 4C0MMT 3 [ SH I F TP  3 

n 

530  PR  I NTSPC  <Z ) " [ COMMG  3 [ BLK.  3 # [ RED  3 * [ CVN  3 
#[PIJR3*[BLU3  [ COMMM  3 " 

540  PR I NTSPC < Z > M [ COMMG 3 [ VEL 3* [ GRN 3 * [ PUR  3 
id  [ CVN  3 # [ BLU  3 [ COMMM  3 " 

550  PR I NTSPC  < Z ) " C SH I FTL  3 [ 4C0MM8 3 [ SH I FT0  3 

II 

560  P=10 : GOTO50 

562  E*INT< <RND< 1)*10)  + 1> 

563  I FE=50RE= 1 0THEN565 

564  GOTO600 

565  PR I NT "[ HOM  3 [ 1 1 CRSRD  3 [ SPC  3 [ VEL  3 [ RVSON 3 
[ 3SPC  3 [ RVSOFF  3 [ SPC  3 [ RVSON 3 [ 3SPC 3 C RVSOF F 3 

[ SPC  3 [ RVSON  3 [ 3SPC  3 [ RVSOFF  3 [ SPC  3 [ RVSON  3 
[ 3SPC  3 [ RVSOFF  3 [ SPC  3 [RVSON  3 [ 3SPC  3 [ RVSOFF  3 
[BLU  3" 

566  PR I NT " [ SPC 3 [ VEL  3 [ RVSON  3 [ 3SPC 3 [ RVSOF F 3 
[ SPC  3 [ RVSON  3 [ 3SPC 3 [ RVSOFF 3 [ SPC  3 [ RVSON 3 
[3SPC3 [ RVSOFF  3 [ SPC  3 [ RVSON 3 [ 3SPC 3 [ RVSOFF 3 

[ SPC  3 [ RVSON  3 [ 3SPC 3 [ RVSOFF  3 [ BLU  3 " 

567  PR I NT " [ SPC  3 [ VEL  3 C RVSON 3 C 3SPC  3 [ RVSOFF  3 
[ SPC  3 [ RVSON 3 [ 3SPC 3 [ RVSOFF  3 [ SPC  3 [ RVSON  3 

[ 3SPC 3 [ RVSOFF  3 C SPC  3 [ RVSON  3 [ 3SPC 3 [ RVSOFF 3 
[ SPC  3 [ RVSON 3 [ 3SPC 3 [ RVSOFF  3 [ BLU  3 " 

569  I = INT<<RND<:i)*5)+l> 

571  IF I = 1 THENPR I NT " [ 2CRSRU 3 [ 2CRSRR 3 1 

II  • 

573  I F I =2  THENPR  I NT  " [. 2CRSRU  3 [ 6CRSRR  3 2 

II  • 

574  I F I =3THENPR  I NT."  [ 2CRSRU  3 C 1 0CRSRR 3 
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3"  j 

575  I F I «4THENPR I NT  H [ 2CRSRU 3 [ 1 4CRSRR ] 

4M; 

576  I F I «5THENPR I NT  M [ 2CRSRU 3 C 1 8CRSRR 3 

5 " j 

577  Q=INT<<RND<1  >#20)4-1  > 

578  IFQ*7THENPÜKE36876, 0 = G0T0582 
580  T*INT<  <RND<  1 )#  50)4-187) : P0KE3687 

6 , T : FORG® 1 TÜ50 : NEXTG • PR I NT " í 2CRSRL 3 C VEL  3 
C RVSON 3 C 2SPC 3 í RVSOFF 3 [ CRSRD 3 [ BLU 3 " 


SOLUCIONES 

PESETAS 


500 


300 


250 


CC  C <cf*  tí* 

9 


»»»»»»»» 


450  * * * * * -X-  * * * * * * 


O 


o $$$$ 


A 


581  G0T0569 

582  PR I NT : PR I NT " C 2CRSRD 3 CBLK3 COLUMNA 
[ SPC  3 1 ,2,3, 4CSPC3RCRBRR" ; 

583  IF I =0THEN600 

584  GETVS  : I F V$C> " 2 " RNDVSO " 1 "RNDV$0 
" 3 " RNDVfO " 4 " THEN584 

585  IFV$="4MTHENF0Rü=187T0231 : P0KE36 
876, G : NEXTG : P0KE368 76,0 : GQTO608 

586  IFV$=" 1 "THENZ=1 :C=1 : F=98 : GOTG50 

587  IFV**,,2"THENZ»8  : C*38 : F=98  • GOTOSO 


SOLUCIONES 

PESETAS 

i-»»*  I $ $$$]$$$  $|v 


500  IMMMf  »»»»  X 


UNA  FIGURA  CUALQUIERA 

UNA  FIGURA  CUALQUIERA  PERO  QUE 
TIENE  QUE  SER  IGUAL  A LA  QUE  LLEVE 
ESTE  MISMO  SIGNO. 


1 novo/digit 

C/  Aragón,  472 

Telf.  (93)  246  27  75 

* microinform  atica 

-BARCELONA-13  • 

SU  TIENDA  DE  INFORMATICA 

CONOZCANOS!! 


TENEMOS  MUCHAS  COSAS  PARA: 


COMMODORE-64  VIC-20  SINCLAIR  ORIC 

Y OTROS 


— Si  no  tenemos  lo  que  busca  se  lo  encontraremos  en  un  tiempo  record 

y a un  precio  mínimo 

DISPONEMOS  DE  CLUB  DE  VIDEOJUEGOS 

SI  NO  TIENE  MICROORDENADOR. 

LE  DEJAMOS  PROBAR  NUESTROS  EQUIPOS  SIN  COMPROMISO 
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SALVAGUARDA 
DE  MEMORIA  EN  PERIFERICOS 


El  programa  descrito  a continuación  permite  conservar  sobre 
Diskette  o Cassette  el  contenido  de  una  serie  de  posiciones  de 
memoria  RAM  del  Commodore-64,  especificada  por  el  usuario 
mediante  las  direcciones  inicial  y final  de  la  misma. 


Tenemos  abiertas  así  varias  posibilida- 
des; entre  otras  cabe  citar  las  siguientes: 

1.  — Se  podrán  grabar  programas  en  len- 

guaje máquina,  sin  necesidad  de 
“enterrarlos”  en  sentencias  DATA  de 
un  programa  BASIC,  con  el  consi- 
guiente ahorro  de  memoria  y tiempo 
de  ejecución. 

2.  — Se  podrá  convertir  el  Diskette  o el 

Cassette  en  una  memoria  “virtual”  de 
pantalla  de  capacidad  prácticamente 
ilimitada  y,  en  el  caso  de  utilizarse  el 
Diskette,  muy  rápida. 

Funcionamiento  del  programa 

Al  ser  ejecutado  es  necesario  introducir, 
en  el  orden  en  que  son  solicitados,  los 
siguientes  datos: 

1.  — Nombre  que  pondremos  al  fichero 

constituido  por  el  trozo  de  memoria  a 
grabar. 

2.  — Dispositivo  de  almacenamiento  a uti- 

lizar. Se  ingresará  un  “1”  en  caso  de 
ser  el  Cassette  o un  “8”  en  caso  de  ser 
el  Diskette. 

3.  — Dirección  inicial  (en  decimal)  del  área 

de  memoria  a conservar. 

4.  — Dirección  final  (en  decimal)  del  área 

de  memoria  a conservar. 

5.  — Autorización  para  iniciar  el  proceso 

de  grabación. 

Descripción  del  programa 

Consta  de  dos  partes.  Una  de  ellas  en 
BASIC  y la  otra  en  código  máquina. 

La  parte  BASIC  puede  considerarse  a su 
vez  formada  por  otras  dos.  La  primera  está 
formada  por  la  linca  10  y las  sentencias 
DATA  de  las  líneas  1000,  1010  y 1020, 
además  de  la  subrutina  de  la  línea  2000.  Su 
cometido  es  cargar  a partir  de  la  posición 
de  memoria  $C000  la  parte  en  código 
máquina. 

El  resto  del  programa  BASIC  sirve  úni- 
camente para  recibir,  preparar  y colocar 
adecuadamente  los  datos  que  la  mencio- 
nada subrutina  en  código  máquina  requiere. 

Dicha  subrutina,  a su  vez,  lo  único  que 
hace  es  llamar  a tres  subrutinas  del  KER- 
NAL  y dispone  los  requerimientos  necesa- 
rios para  el  funcionamiento  de  las  mismas. 


C-64 


La  más  importante  de  las  tres  es  la  titulada 
SAVE.  Su  función  es,  precisamente,  enviar 
a un  periférico  el  contenido  de  un  segmento 
de  memoria.  Su  dirección  de  llamada  es 
SFFD8  (dcc.  65496). 

SAVE  no  puede  usarse  sin  más.  Necesita 
“ayuda”  y así,  si  se  quiere  poner  un  nombre 
al  trozo  de  memoria  a guardar,  lo  que 
usando  el  Diskette  es  imprescindible,  hace 
falta  el  concurso  de  otras  dos  rutinas  del 
KERNAL.  Una  de  ellas  es  SETLFS. 
SETLFS  prepara  el  número  del  fichero 
lógico,  e indica  el  periférico  a utilizar  por 
SAVE  y la  dirección  secundaria,  “1”  en 
nuestro  caso.  Esta  dirección  secundaria 
permitirá  que  en  el  momento  de  cargar  al 
ordenador  lo  previamente  grabado,  se 
coloque  en  las  mismas  posiciones  de 
memoria  originalmente  ocupadas.  Su  direc- 
ción de  llamada  es  SFFBA. 

La  otra  rutina  KERNAL  es  SETNAM. 
Como  su  nombre  indica  tiene  la  misión  de 
bautizar  a la  criatura,  o dicho  más  seria- 
mente, de  darle  un  nombre  al  fichero  que 
vamos  a crear.  Su  dirección  de  llamada 
es  SFFBD, 

Veamos  cuáles  son  los  requerimientos  de 
las  rutinas  anteriores  y cómo  se  satisfacen. 
Empecemos  por  la  primera  en  ser  usada: 
SETLFS.  Necesita  que  en  el  momento  de  su 
ejecución  el  acumulador  del  microprocesa- 
dor contenga  el  número  de  registro  lógico, 
que  hemos  fijado  a “1”.  Esto  se  consigue 
con  la  primera  instrucción  LDA^Ol  (ver 
listado  fig.  2).  Otro  requisito  es  que  el  regis- 
tro X contenga  el  número  de  periférico,  es 
decir  un  “8”  para  el  Diskette  o un  “ 1 ” para 


el  Cassette,  de  ello  se  encarga  el  primer 
POKE  de  la  linea  80  (fig.  I),  que  como  el 
2o,  el  5Ü  y el  6e  de  la  misma  línea  no  hace 
sino  introducir  valores  en  los  campos  de 
operando  oportunos  del  programa  en  len- 
guaje máquina.  Finalmente  es  necesario 
que  el  registro  Y contenga  la  dirección 
secundaria  a utilizar,  la  “1”,  de  lo  cual  se 
encarga  la  primera  instrucción  LDY^OI  de 
la  fig.  2.  SETNAM  necesita  que  en  el 
momento  de  su  ejecución  el  acumulador  del 
micro  contenga  la  longitud  (n°  de  caracte- 
res) del  nombre  del  fichero,  (2Ü  POKE  de  la 
línea  80);  el  registro  X contenga  el  byte 
menos  significativo  de  la  dirección  a partir 
de  la  cual  se  encuentran  los  códigos  ASCII 
de  los  caracteres  del  nombre  y que  el  regis- 
tro Y contenga  el  byte  más  significativo. 
Por  ejemplo,  supongamos  que  se  nos  ha 
ocurrido  llamar  FEDERICO  al  fichero. 
Pues  bien,  la  sentencia  90  del  programa 
BASIC  pone  los  códigos  ASCII  de  los 
caracteres  de  FEDERICO  a partir  de  la 
dirección  $C01C  (dec  49178);  por  tanto 
en  el  acumulador  introduciremos  el  valor  8, 
que  es  el  LEN  de  FEDERICO,  mediante  el 
segundo  LDA  =£  del  listado  de  la  figura  2 y 
el  segundo  POKE  de  la  línea  80;  y en  el 
registro  X cargaremos  SIC  y en  el  Y SCO 
(LDX41C  y LDY*CO). 

Después  de  todo  esto  estamos  casi  en 
condiciones  de  llamar  a SAVE.  Falta  colo- 
car la  dirección  inicial  de  la  zona  de  memo- 
ria a grabar  en  dos  direcciones  consecutivas 
de  página  cero.  El  byte  menos  significativo 
en  la  primera  y el  más  significativo  en  la 
siguiente.  Aclaremos  esto:  la  memoria  del 
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ordenador  está  organizada  en  páginas,  que 
no  son  otra  cosa  que  series  de  256  bytes 
consecutivos.  La  página  cero  consta  de  los 
256  primeros,  desde  el  $00  al  $FF.  Esta 
página  está  muy  ocupada  por  el  sistema 
operativo  del  64;  sin  embargo,  las  direccio- 
nes SFB,  SFC,  $FD,  $FE  (del.  25 1 , 252, 253, 
y 254)  están  libres.  Utilizaremos  la  SFB  y la 
SFC. 

EN  SFB  colocaremos  el  byte  menos  sig- 
nificativo de  la  dirección  inicial  del  área  de 
memoria  a grabar,  de  ello  se  encarga  el  ter- 
cer POKE  de  la  línea  80.  Y en  SFC  el  byte 
más  significativo,  mediante  el  cuarto 
POKE  de  la  mencionada  línea. 

El  INPUT  de  la  línea  60  y la  subrutina 
3000  se  encargan  del  cálculo  del  valor  de 
ambos  bytes  a partir  del  número  decimal 
correspondiente. 

El  byte  de  página  cero  escogido,  $FB, 
debe  ser  puesto  en  conocimiento  de  SAVE 
colocándolo  en  el  acumulador.  Es  la  fun- 
ción que  cumple  el  último  LDA^FB  del 
listado  de  la  fig.  2. 

Resta  colocar  en  los  registros  X e Y la 
última  dirección  del  área  a grabar.  El 
INPUT  de  la  línea  70  y la  subrutina  3000 
junto  con  los  últimos  POKES  de  la  80  lo 
hacen. 

I ras  esto  todo  está  listo  para  el  comienzo 
de  la  grabación.  La  línea  100  no  es  más  que 
una  confirmación  de  seguridad.  El  SYS 
(49152)  de  la  línea  1 10  lanza  y completa  la 
grabación,  terminando  el  programa. 


Carga  en  memoria 
del  área  grabada 

Para  leer  de  nuevo  a RAM  lo  grabado  se 
puede  actuar  en  modo  comando  directo  o 
desde  un  programa  en  BASIC.  También 
puede  hacerse  desde  una  rutina  en  lenguaje 
máquina,  pero  acudiendo  de  nuevo  al 

FIGURA  2.  Listado  de  la  parte  en  Código 
Máquina. 
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CO 
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20 
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FF 
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L.F. 

COI  4 

A0 
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COI  5 

M.F. 

• 

COI  6 

A9 

LDA^FB 

COI  7 

FB 

COI  8 

20 
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COI  9 

D8 

COI  A 

FF 

C01B 

60 

RTS 

KERNAL  del  cual,  por  esta  vez,  ya  hemos 
hecho  uso  más  que  suficiente. 

La  sintaxis  para  cargar  a RAM  en  modo 
comando  es: 

LOAD  “nombre  de  fichero”,  núm.  de 
perif.,  1 

Ejemplo  LOAD  “FEDERICO”  8,  1 car- 
garía el  archivo  almacenado  con  el  nombre 
de  FEDERICO  desde  el  Diskette. 

El  modo  más  simple  a mi  juicio,  de  car- 
gar desde  un  programa  en  BASIC  es  colo- 
cando como  primera  linea  de  programa  la 
siguiente: 

10  IF  A=ü  THEN  A=l:  LOAD  “nombre 
fich.”,  núm.  per.,  1 


Resta  indicar  que  el  programa  presen- 
tado puede  modificarse  dándole  la  forma  de 
subrutina,  con  el  fin  de  hacer  que  forme 
parte  de  otro  mayor,  o bien  haciendo  que 
los  parámetros  de  entrada  los  genere  el 
propio  programa,  etc.  etc., 

Esta  parte  del  trabajo  es  para  el  lector, 
que  sabrá  adaptarlo  todo  a sus  propias 
necesidades. 


10  F0RI=49152T049179:  READAS: GOSUB200 
0 : POKE 2 , D : NEXT 

40  PRINT " CCLR3 " : I NPUT " NOMBRE " J NS: N = L 
EN ( NS ) : IFN>10ORN< 1THEN40 
50  PRINT:  I NPUT  " 1-CASSC2SPC38-DISK"  í P 
í IFP<  >3ANDP<  MTHEN50 

60  PRINT: I NPUT " D I R . C SPC 3 I N I C I AL C SPC 3 
DECSPC ] MEMORIA" ; DY : GOSUB3000 : L I = BB : M 
I =B  A 

70  PRINT: I NPUT " D I R . C SPC 3 F I NAL C SPC ] DE 
CSPC  3 MEMORIA" 5 DY: GOSUB3000 : LF=BB : MF  = 
BA 

80  POKE 4 9 155, P : POKE 4 9 i 62 , N : POKE 2 5 1 , L 
I :P0KE252,MI :P0KE49171 , LF : P0KE49 173, 
MF 

90  FORI  = 1 TON: P0KE49 179+1 , ASC  (MIDS (NS 

,1,1)) :next 

100  INPUT" OK" ; es: IFCS<  > "SI mTHENG0T04 
0 

110  SYS (49152) : STOP 

1000  DATAA9 , 01 , A2,00, A0,01 , 20, BA , FF 
1010  DATAA9 , 00 , A2 , 1 C , A0 , C0 , 20 , BD , FF 
1020  DATAA2 , 00 , A0 , 00 , A9 , FB , 20, D8 , FF , 
60 

2000  D=0: FOR J= 1 T02 : D%=ASC (AS) : D%=D%- 
48+  <D%>64)*7: AS=MIDS ( AS, 2)  : D= 1 6*D  + D% 
I NEXT 

2010  RETURN 

3000  BA=INT (DY/256) : BB=DY-256*BA : RET 

URN  . , 

hg.  I 


Tele  Sant  Just 

Mayor,  2.  Tel.  (93)  371  70  43 
SAN  JUST  DESVERN  (Barcelona) 


INTERFACE  para  recibir  y transmitir 
CW  y RTTY  en  el  VIC-20  y 
COMMODORE  64 


NTERFACE  para  poder  conectar  cualquier 

cassette  a los  ordenadores 
COMMODORE  64. 


BASE  DE  DATOS  en  cassette 
ARCHIVO  DE  OSL. 


''NECESITAMOS  DISTRIBUIDORES” 


Commodore  World  Julio/Agosto  1984/47 


COMMWfóoRLD 


NOVEDAD 


SIMON’S  BASIC 


NOVEDAD 


40/80  columnas 
para  el  VIC-20 


La  casa  Ferre-Moret  S.A.  de 
Barcelona  ha  lanzado  este  mes  al 
mercado  español  una  tarjeta  que 
permite  convertir  el  VIC-20  en  un 
ordenador  personal  de  muy  supe- 
rior categoría. 

Entre  las  características  de  esta 
tarjeta  podemos  mencionar  que 
no  ocupa  memoria  de  usuario 
(posee  su  propia  RAM  de  panta- 
lla), no  interfiere  el  funciona- 
miento normal  del  VIC-20,  se 
puede  alterar  el  espaciado  entre 
las  líneas  de  texto,  el  número  de 
columnas  por  línea,  proteger 
lineas  de  la  pantalla  para  mante- 
ner mensajes  fijos  en  ellas  sin  que 
les  afecte  el  scroll  y borrado  de 
pantalla  normales,  y lo  princi- 
pal... se  ven  caracteres  muy  bien 
definidos  y nítidos.  Quizás  sea 
ésta  una  de  las  características  más 
decisivas  a la  hora  de  utilizarlo 
conectado  a un  gran  ordenador 
(ver  Noticias  Commodorianas, 
pág.  6). 


El  precio  de  venta  al  público  es 
de  17.250  pesetas  y en  mi  opinión 
es  uno  de  los  accesorios  a tener  en 
cuenta  si  se  desea  utilizar  el  VIC-20 
para  algo  más  que  matar  marcia- 
nitos. 


La  tarjeta  puede  pedirse  a: 

Ferre-Moret  S.A. 

Tel.:  93-250  84  40 
C/  Buenos  Aires,  30,  2®,  3.a 
BARCELONA-36 
Precio:  17.250  ptas. 


En  INFORMAT  tuvimos  la 
oportunidad  de  conocer  una  de 
las  últimas  novedades  de  Microe- 
lectrónica y Control  para  el  C-64. 
se  trata  del  cartucho  “SIMON’S 
BASIC”,  este  cartucho  añade  1 14 
comandos  a los  que  ya  posee  el 
C-64  como  ya  adelantamos  en  el 
número  anterior. 

Estos  comandos  los  podemos 
dividir  en  varios  tipos: 

— Comandos  de  ayuda  a la  pro- 
gramación (KEY  y TRACE). 

— De  manejo  de  cadenas  (INSERT 
y PLACE). 

— De  texto  (CENTRE  y PRINT 
AT). 

— De  entrada  de  datos  (FETCH 
e INKEY). 

— Aritméticos  (MOD  y DIV). 

— De  conversión  numérica  a 
binario  y hexadecimal. 

— De  programación  estructurada 
(POC  e I F...THEN...ELSE). 

— De  manejo  de  pantalla  (SCRS V 
y COPY). 

— Gráficos  (CIRCLE  y PAINT). 

— De  sprites  y gráficos  definidos 
por  el  usuario. 

— De  música  (WAVE  y EN- 
VELOPE). 

— De  operación  con  discos  (DI R 
y DISK). 

He  enumerado  algunos  de  los 
comandos  como  ejemplo,  pero  la 
lista  de  comandos  es  enorme 
(1 14),  son  todos  aquellos  que  los 
usuarios  estaban  esperando  para 
los  distintos  campos  de  aplicacio- 
nes de  su  ordenador  personal,  los 
aficionados  a las  matemáticas  y 
dibujos  técnicos  querían  un  car- 
tucho que  les  añadiese  los  coman- 
dos PLOT,  LINE,  etc.,  los  aficio- 
nados a programas  de  marcianitos 
esperaban  un  programa  que  per- 
mitiese definir  sus  propicos  carac- 
teres, los  programadores  novatos 
y los  empedernidos  del  teclado 
esperaban  algo  que  les  ayudase  a 
detectar  errores  y probar  pro- 


SIMONS' 

BASIC 

U ADOmCNAi  raOCKAVMÍ*)  CCWMANDS 


gramas,  etc...  Este  cartucho  es  la 
respuesta  para  todos. 

Aspectos  positivos  del  Simon’s 
Basic,  podríamos  seguir  enume- 
rando durante  varias  páginas  de 
la  revista  y necesitaríamos  varios 
números  para  publicar  ejemplos 
donde  demostrar  las  cualidades, 
pero  no  vamos  a hacerlo. 

Como  todo  debemos  decirlo, 
vamos  con  los  aspectos  negativos: 
en  primer  lugar  el  precio  que  lo 
aleja  del  alcance  de  los  jóvenes 
aficionadillos  que  tienen  pocas 
cucas.  El  segundo  inconveniente 
es  el  manual  (viene  en  ingles  de 
momento),  pero  pronto  lo  ten- 
drán en  español.  El  tercero  es  que 
aquellos  programas  que  utilizan 
variables  de  más  de  dos  caracteres 
no  funcionan,  da  SYNTAX  ERROR 
en  las  líneas  que  tengan  variables 
más  largas.  Esto  último  se  solu- 
ciona quitando  el  resto  del  nom- 
bre de  la  variable  ya  que  aunque 
el  basic  de  Commodore  las 
acepta,  sólo  lee  los  dos  primeros 
caracteres 

El  precio  del  cartucho  SIMON’S 
BASIC  es  16.000  pesetas,  comer- 
cializado por  MEC. 


TOMO 

Y 

LOMO 


Algunos  programas  de  uso  común  en  BASIC  (edición  para  pet/cbm) 


Autores: 

I.on  Poole 
Mary  Borchers 
Carroll  Donahue 

Editorial: 

Mc.Graw-Hill  España. 

Sta.  Beatriz,  4. 

Madrid-18 
P.V.P.  1.900  pesetas 

Nos  encontramos  ante  un 
libro  dedicado  a los  PET/CBM. 
El  enfoque  dado  ha  sido  prác- 
tico, los  autores  lo  advierten 
en  la  introducción,  no  han 
pretendido  realizar  un  curso 
de  Basic,  sino  recopilar  76 
programas  que  pueden  resul- 
tar positivos  para  el  aprendizaje 
al  analizarlos. 


Hemos  probado  varios  de  los 
programas  que  aparecen  listados 
y funcionaron  a la  primera.  La 
temática  se  centra  en  rentabili- 
dad, amortización,  préstamos, 
integración,  derivación,  regresio- 
nes, estadística,  etc. 

Cada  programa  propuesto  apa- 
rece con  una  pequeña  introduc- 
ción que  expone  el  problema  que 
queremos  resolver,  nos  propone 
una  fórmula  matemática  para  su 
resolución,  el  significado  de  cada 
uno  de  los  términos  que  aparecen 
en  la  fórmula  unos  ejemplos  con 
los  resultados  que  nos  darían  si 
desarrollamos  correctamente  el 
problema  y finalmente  aparece  el 
listado  del  programa  que  corres- 
ponde a la  fórmula  propuesta. 


Cada  listado  está  repleto  de 
sentencias  REM  para  explicar  lo 
que  hace  esa  sección  del  pro- 
grama, pero  los  comentarios  de 
estas  sentencias  vienen  en  inglés. 
El  resto  del  libro  está  correcta- 
mente traducido  al  español. 

Este  libro  puede  ser  útil  para 
todos  aquellos  que  deseen  utilizar 
el  ordenador  para  la  resolución 
de  problemas  matemáticos  o apli- 
carlo a los  negocios  bancarios. 

Casi  todos  los  programas  fun- 
cionan en  el  VIC-20  y C-64  sin 
tener  que  hacerles  modificacio- 
nes. pero  algunos  pueden  necesi- 
tarlas para  conseguir  representar 
las  gráficas  que  originalmente 
eran  para  40  columnas  a la  panta- 
lla de  22  del  VIC. 


48/Commodore  World  Julio/ Agosto  1984 


algunos  de  nuestros  programas  para  los 

ordenadores  personales 


GESTION 

COMERCIAL 

MOVIMIENTOS  DE  ALMACEN 
ALBARANES FACTURAS 
RECIBOS  REMESAS 
V OTROS  LISTADOS 
CUENTES  500 
^ ARTICULOS  1000 


CONTABILIDAD 

DIARIO- BALANCES 
SUMAS.  SALDOS  Y 
SITUACION 
listados  APUNTES 
CUENTAS  750 
APUNTES  3515 


CONTROL  STOK 

MOVIMIENTOS  DE  ALMACEN 
DIARIOS  DE  VENTAS  Y 
COMPRAS  INVENTARIO 
MINIMOS 

LISTADOS  DIVERSOS 
ARTICULOS  1500 
^PROVEEDORES  255 


CONMUTADOR  T.V. 

PERMITE  SIMULTANEAR 
EL  USO  OE  LA  ENTRADA 
DE  ANTENA  AL  TV 
CON  UN  ORDENADOR 
PERSONAL 

comí  y i odore 

éJ  V.P.  2 850  pts. 


RECIBOS  DE 
CUOTAS 

MANTENIMIENTO 
LISTADO  DE  RECIBOS 
LISTADO  ETIQUETAS 
V OTROS 


direcciones  y 

ETIQUETAS 

DIRECCIONES 
ETIQUETAS 
GESTIONES  DIARIAS 
Y OTROS  PROCESOS 


AGENDA  Y 
DIRECCIONES 

ENTRADA  DIARIA  CON 
OCUPACION  DINAMICA 
VISUAUZACION  E IMPRESION 
DE  GESTIONES  AGENDA 
DIRECCIONES 
LIST  ADOS  Y ETIQUETAS 


quinielas 

CALCULO 
GENERADOR  CON 
CONDICIONANTES 
FIJADOS  DE 
ANTEMANO  (FIJOS 
DOBLES.  TRIPLES) 
EN  DISCO  Y CINTA 


¡NOVEDAD! 
EFECTOS  Y REMESAS 

EMISION  RECIBOS 
EMISION  REMESAS 
ETIQUETAS  CLIENTES 
LISTADOS 

CLIENTES  800 
^ REMESAS  500 


REGRESION 

POR  PANTALLA  E 
IMPRESORA  MEDIA 
DESVIACION  TIPICA 
Y VARIANZA 
PREDICCIONES 


AVD.  CESAR  AUGUSTO, 72 
Tlfs. 23  56  82  y 22  6544 
ZARAGOZA  3 
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COMPARTIENDO  EXPERIENCIA  ENTRE  AMIGOS 


La  MAGIA  son  trucos , la  MAGIA  es 
divertida. 

La  MAGIA  es  hacer  lo  que  nadie  se  ha 
atrevido  y resulta  ser  la  fuente  más 
completa  de  información  para  la  informática 
práctica. 

La  MAGIA  es  una  sección  mensual 
llena  de  consejos , trucos , de  esto  y aquello 
del  mundo  del  software , hardware  y 
aplicaciones , trucos  descubiertos  por  los 
demás  que  hacen  que  la  informática  sea 
más  fácil , más  divertida  o más  animada, 

MA  GIA  habla  de  ideas  sencillas , progra- 
mas de  una  sola  línea , subrutinas  útiles , 
hechos  de  informática  poco  conocidos  y 
otras  cosas  de  interés. 


-flll/Gos  ' 

¿nortes 


VIC  - Piano 

Soy  suscriptor  vuestro  desde  el  primer  número  y me  parece  bastante 
buena  la  revista,  superior  a Club  Commodorc.  Quiero  enviaros  un 
pequeño  programa,  que  si  queréis  incluirlo  en  Magia,  es  interesante  para 
los  “Músico  Vic-viciosos.  En  resumen,  hace  que  todas  las  teclas  del 
“qwerty"  o teclado  se  conviertan  en  un  piano  y no  así  las  teclas  de 
control,  bueno,  ahi  va: 

1 FOR1=0TO44 

2 READA:  POKE672+I,A 

3 NEXT:SYS672:NEW 

4 DATA  120,169,176,141,20,3,169,2 

5 DATA  14 1,2 1,3,88,96 ,0,0,0 

6 DATA  165, 1 97,20 1 ,64,240, 1 2,9, 192 

7 DATA  141,12,144.169,15,141,14,144 

8 DATA208.8, 173,14,144,240, 3, 206 

9 DATA14,  144,76,191,234 

Este  programa  funciona  incluso  si  se  escribe  luego  NEW,  y se  efectúan 

otros  programas  y se  recupera  escribiendo  SYS  672,  no  funciona  si  se 

apaga  de  Vic-20  claro!  . . ~ . , r/ , 

1 6 Luis  Solorzano  Vázquez 

Bartrina,  1-3.  esc.  B 3*-L*.  BARCELONA- 30 

Freno  para  listados 

Amigos  de  Commodore: 

Esto  es  bastante  útil  para  listar  programas  largos  porque  los  lista  línea 

3 líllCíI 

Se  escribe  list,  e inmediatamente  después  de  dar  a la  tecla  “RE  1 URN 
se  da  a la  tecla  “CONTROL".  Mientras  se  mantenga  apretada  esta  última 
tecla  el  programa  aparecerá  línea  a linea. 

Espero  que  sirva  de  algo  a los  lectores.  Hasta  pronto. 

Rafael  Olalla  Martínez 

Eugenio  Sellés,  ^3-5°  B.  PEI) REGALE.! O - Málaga 

Cosidas  en  la  pantalla 

Os  mando  unos  POKES  por  si  merecen  la  pena  publicarlos  en  la  sec- 
ción de  MAGIA.  Están  hechos  en  un  VIC-20. 

POKE36867,32  hace  pequeña  la  pantalla. 

POKE36867.56  pone  la  pantalla  normal,  pero  con  unos  signos  al  final 
de  ella. 

POKE34,7:POKE23,PEEK(43):SYS54386  borra  la  pantalla. 
POKE36867.23  saca  unos  signos  en  pantalla  y al  final  de  ellos  sale  una 
A centelleante,  pulsen  teclas  y verán  lo  que  pasa. 

Agustín  Horrillo 

Emilio  Serrano.  nv  l-2vtí.  ERMUA  ( Vizcaya ) 

Encolumnado  de  Números 

El  ordenador  presenta  las  cantidades  ajustadas  por  la  izquierda,  con  lo 
que  quedan  de  forma  incorrecta,  ya  que  las  unidades,  decenas,  centenas, 
etcétera,  no  ocupan  la  misma  columna. 


Desconecta  sin  apapar 

Hola  queridos  colegas  de  la  COMMODORE  WORLD,  aquí  os  envió 
un  pequeño  truco  para  vuestro  VIC. 

Con  este  programa  se  obliga  al  ordenador  a despreciar  una  cantidad  de 
memoria  y hacerle  creer  que  no  tiene  conectada  ninguna  ampliación  de  8 
ó 16  K,  programa  muy  útil  para  cargar  programas  que  no  requieran 
ampliaciones  (STANDARD)  y olvidarse  si  hay  o no  conectada  amplia- 
ción alguna,  sobre  todo  de  más  de  3 K,  espero  os  guste,  un  saludo. 

10  POKE36869,240:POKE36866,150:POKE  648,30 
2o  E0RJ=217T0228:P0KEJ,I58:NEXT 
30  FORJ=229TO250:POKEJ,159:NEXT 

50  POKF56,30:CLR:POKE4096,0:POKE44,16:POKEI98,2:POKE631, 
147:POKE632,131:NEW 

Diego  Herrero  Ortega 

Avenida  Jaime  1.  317.  4tí2.a  TERRASSA  ( Barcelona ) 


Strings  Nulos  y ASC 

Cuando  al  ejecutar  un  programa,  salga  71LLEGAL  QUANTIIY  en 
una  función  ASC,  sólo  tenemos  que  sumar  CHR$  (0)  al  final  de  la 
cadena  y el  problema  se  soluciona.  Ejemplo: 

ERROR  10  Z=ASC(Z$) 

SOLUCION  10  Z=ASC(Z$  + CHRS  (0)) 

Os  doy  las  gracias  por  leerlo.  Sólo  os  quiero  preguntar  algo. 
Cuando  recibí  el  envío  de  vuestras  tres  revistas,  encontré  un  número 
entre  paréntesis  al  lado  de  mi  dirección.  El  n-  es  4884,  quisiera  saber 
si  es  mi  número  de  suscripción  o el  nQ  de  envío,  o algo  así.  Un  abrazo 
a todos  y espero  que  vuestra  adolescente  dure  muchos  años,  por  el 
bien  de  todos. 

Isabel  Moreno 

R/  Pujolet,  10-I°-La.  BAÑERAS  (Tarragona). 

Barra  de  tiempo 

El  presente  programa  crea  una  barra  de  tiempo,  la  cual  puede  ser  útil 
para  algún  programa  de  juegos. 

10  REM  Barra  de  tiempo 
20  E$=“(CTROL  2)  (RVSON)  (30SPC)" 

30  PRITES 
40  N=30 
50  N=N-I 

60  PRINT“[CRSRU]"TAB(N);CHR$(32) 

70  1F  N=0  THEN  100 
80  FORT=l  TO  1500:  NEXT  T 
90  GOTO  50 

100  PRINT  “TIEMPO  AGOTADO" 

110  END 

El  tiempo  se  puede  modificar  cambiando  la  línea  80  y el  color  y la 
longitud  de  la  barra  en  la  línea  20  junto  con  la  línea,  40. 

José  Feo.  Torres  Caro 

Apolo,  91.  TORREVIEJA  (Alicante) 


50/Commodore  World  Julio/ Agosto  1984 


El  siguiente  programa  obvia  este  inconveniente 
100  INPUT  A:  A$=  STR$(INT(A)):  LO=  LEN(AS): 

PRINT  TAB(20  - LO)A:  GOTO  100 

Manuel  Hernández  Báez 
Palencia,  29,  Madrid-20 

Input  sofisticado 

Se  basa  en  un  INPUT  más  sofisticado,  más  profesional.  Nosotros 
cuando  desde  cualquier  parte  del  programa,  queramos  hacer  un  INPUT 
de  este  tipo,  sólo  hemos  de  darle  el  número  de  caracteres  que  se  entrarán 
(LG=ny  de  caracteres)  y hacer  actuar  la  subrutina.  Luego  ponemos 
NS=G$  (pongo  n$  como  ejemplo)  y ya  hemos  utilizado  nuestro  INPUT 
sofisticado. 

1000  EOR 1=  I TOLG:GS=GS  ‘4[spc]”:NEXTl 
1010  P=P+l:IFP>LGTHENP=LG 
1020  IFP<JTHENP=  I 

1030  PRINT“[CRSRU]”LEFT$(G$,P-1)“[RVS0NJ”M1D$(G$,P,1 ) 

“[  RVSOF]”RIGl  1T$(G$,LG-P) 

1040  GETA$:IFA$=“”THEN1040 

1050  IFA$=CHR$(  l3)THENPRlNT“[CRSRUJ[RVSONJ“G$”[RVSOF] 
”:RETURN 

1060  I F AS  - “f  C R S R D]  "O  R A$— C R S R IJ  ] ”G  R A$=C  1 1 R(  20  )C)  R A$_ 
CHR$(148)THEN  1040 

1070  IFA$-“[CRSRLJ”THENP=P-2:GOTOI010 

1080  IFA$=“ICRSRR]”THEN  1010 

1090  G$=LEFTS(G$,P-1)+AS+RIGHT$(G$,LG-P) 

1100  GOTO  10 10 

En  el  caso  de  lo  que  queramos  sea  una  variable  numérica  entonces, 
hemos  de  modificar  en  la  subrutina  lo  siguiente: 

1041  IFA$=“  “THENG0T0I090 

1081  IFASC(AS)  480RASC(A$)  57THEN1040 

1050  IFAS=CHR$(  l3)THENPRINT“[CRSRU][RVSON]“G$”[RVSOF 
]”:G=VAL(GS) 

RETURN. 

Hasta  pronto  amigos. 

Santiago  Casas  Duarte  ( 16  años ) 
tmp.  Eugenia,  14  - T ARRAS  A 


Gráficas  en  Baja  Resolución 

Amigos  de  Commodore  World,  os  envío  la  siguiente  colaboración  para 
el  apartado  de  MAGIA  a la  vez  que  os  felicito  por  vuestra  estupenda 
revista. 

Para  todos  los  principiantes  que  como  yo  nos  cuesta  fabricar  estupen- 
das figuras  en  la  pantalla  del  C-64  a base  de  sprites  y programas  largos, 
aquí  está  este  original  programa  que,  aunque  corto,  produce  una  figura 
gráfica  realmente  magnífica. 

I lacedlo  con  el  cursor  en  negro,  intentando  también  sustituir  el  86  de  la 
linea  50  por  91,97,98,114,102,  ó el  que  queráis. 

La  línea  70  coloca  mi  nombre  en  el  centro  de  la  figura;  no  soy  vanidoso, 
así  que  podéis  colocar  cada  cual  el  vuestro. 

Hasta  pronto. 

10  PRINT  “ICLRJ” 

20  POKE  53280,5  : POKL  53281,7 

30  FOR  T = 0.1  TO  6.2  STEP  0.02 

40  X=INT(  12*COS(T)  t 3)  : Y=1NT(I2*SIN(T)  f 3) 

50  POKL  1563+X+40*Y,86 
60  NEXT 

70  PRINT  “[HOME]”  ; “[ I6CRSRR]  [12CRSRD]”  ; “MANOLO” 

80  GOTO  80 

Manuel  Veamonte  Serrano 

Depósitos  Bajos,  S/N.  CASETAS  (Zaragoza) 

Matadura  da  pata  an  “números  primos’ 7 

El  motivo  de  la  presente  es  para  indicarles  que  existe  un  error  de 
imprenta  en  la  rutina  para  generar  números  primos  que  les  envié  y apare- 
ció publicada  en  el  número  de  mayo  en  la  sección  MAGIA 

En  concreto  se  trata  de  una  omisión.  En  la  página  54  aparece  escrita  la 
línea  tres  de  la  subrutina,  asignando  C = I .5  cuando  en  realidad  debería 
de  haberse  imprimido  en  la  forma  siguiente:  C = 1 1 .5  es  decir,  se  omitió 
el  signo  de  potenciación  ( f ).  Ruego  rectifiquen  este  error  en  la  sección  de 
METEDURAS  DE  PATAS  del  próximo  número. 

Rafael  Garda  Segura 
Montes  de  Oca,  9-2Q.  Málaga-I 

Paradas  an  programa 

Estoy  sorprendido  de  que  siempre  sale  un  “truco”  sobre  la  orden: 

10  GET  A&  : IF  A&  = “x”  THEN  (lo  que  sea)... 

Si  esta  orden  es  tan  sólo  para  detener  un  programa  esto  también  se 
puede  realizar  mediante  una  orden  INPUT.  Me  explico:  si  en  el  trans- 
curso del  programa  colocamos  un  INPUT,  éste  se  detendrá  y aparecerá 
un  interrogante  en  pantalla;  tan  sólo  apretando  el  RETURN  el  programa 
continuará,  fácil,  ¿no?!. 

Santiago  Martínez  Romero 


Ecuaclonos,  Barquitos  y Manual 

Como  pedís  programas  de  una  sola  linea  para  el  apartado  “Magia”  he 
decidido  mandaros  uno,  para  que  lo  publiquéis  si  os  gusta. 

El  programa  resuelve  ecuaciones  de  segundo  grado. 

Funcionamiento: 

El  ordenador  pide  los  coeficientes  de  la  fórmula  general  A,B,C, 

Halla  los  valores  de  X(Z  e Y en  el  programa) 

Escribe  estos  valores 

Vuelve  a empezar  (para  resolver  otra  ecuación) 

La  instrucción  Print  hay  que  ponerla  abreviada  (?)  para  que  quepa  en 
una  línea. 

PROGRAMA 

1 INPUT  AtB,C:Z=< — BTSQR(BT2 — 4*A*C))/(2*A):Y=( — B — SQR(BT2 
— 4*A*C))/(2*A):?Z,Y:GOT01 

En  el  programa  Batalla  naval  que  publicabais  en  el  nL’  2 (marzo), 
cuando  el  ordenador  da  en  uno  de  los  barcos  del  jugador,  puede  repetir  la 
jugada,  lo  que  no  ocurre  al  revés,  cuando  el  jugador  acierta. 
•Insertando  una  línea,  este  problema  se  soluciona.  La  linea  es: 

575  GOTO  450 

(es  válido  para  el  V-20  y el  C-64) 

j Ah!  y el  manual  del  usuario  del  C-64  no  tiene  sólo  el  par  de  errores  que 
publicabais  sino  unos  cuantos  más. 

Jorge  Lozano  del  Amo  (16  años) 

Subida  de  S.  Andrés,  ne  i.  Al NZON  (Zaragoza) 

NOTA:  ENVIANOS  TODOS  LOS  ERRORES  QUE  ENCUENTRES. 


Mansajas  an  Santancias  Input 

Queridos  amigos: 

En  el  apartado  de  MAGIA  de  la  revista  de  marzo  habéis  publicado 
unas  líneas  que  os  envié.  Me  alegro  mucho  que  haya  sido  útil  a otros 
lectores  de  la  revista.  Como  no  había  enviado  la  dirección  lo  hago  ahora  y 
de  paso  os  envió  otra  observación  con  respecto  al  VIC-20.  Va  dirigida  a 
los  que  llevan  poco  tiempo  con  el  ordenador  ya  que  el  resto  supongo  que 
ya  la  conocerá: 

Cuando  se  mete  un  mensaje  entrecomillado  después  de  la  instrucción 
INPUT  ha  de  tenerse  en  cuenta  la  longitud  de  dicho  mensaje  pues  no  debe 
sobrepasar  un  número  determinado  de  espacios,  dependiendo  del  orde- 
nador que  sea,  en  concreto  para  el  VIC-20  admite  hasta  20  espacios  o 
pulsaciones.  En  caso  de  no  conocer  este  dato  si  se  ponen  caracxteres  de  más 
el  ordenador  repite  la  misma  línea  pidiendo  datos  y con  un  mensaje  de 
error  sin  poder  llevar  el  programa  adelante. 

Andrés  Rozo 

Otxarkoaga  Bl.  22-N7-60 D.  Bilbao-4 


Rutina  Mova  Mamory 

Hola  amigos  de  COMMODORE: 

Aquí  os  envío  una  subrutina  que  sirve  para  copiar  una  zona  de  memo- 
ria (dirección  fuente)  en  otra  (dirección  destino). 

Haciendo  uno  de  ella  podremos  obtener  una  copia  en  RAM  del  BASIC 
o juego  de  CARACTERES,  por  poner  un  ejemplo,  en  un  tiempo  mínimo 
(menos  de  un  segundo).  Esta  subrutina  llama  a una  rutina  del  BASIC,  en 
l.m.,  que  se  llama  MOVE  MEMORY  y está  en  la  dirección  SA3B8. 

Antes  de  recurrir  a ella  debemos  cargar  los  punteros  necesarios  en  las 
siguientes  direcciones:  (esta  operación  la  hacen  las  líneas:  1000,  1010, 
1020  y 1030) 

DIRECCION  90-91. ..PUNTERO  DE  DIRECCION  FUENTE 
DIRECCION  88-89... PUNTERO  DE  DIRECCION  DESTINO 
DIRECCION  95-96... PUNTERO  DE  NUMERO  DE  BYTES  A 
TRASLADAR. 

Los  parámetros  de  entrada  en  la  subrutina  son: 

VARIABLE  F1  - DIRECCION  FUENTE 

VARIABLE  DI  - DIRECCION  DESUNO 

VARIABLE  NI  - NUMERO  DE  BYT  ES  A TRASLADAR 

LISTADO  DE  LA  SLBKUT1NA 

1000  F1=N l+FI-  1 : D1  = D1+N1-  1 
1010  H 1%  = Fl/256  : L1  = F!  - Hl%*256 
1020  H2%  = D 1/256  : L2  = DI  - H2%*256 
1030  H3%  = NT/256  : L3  = NI  - H3%*256 
1040  POKE  90, L1  : POKE  91.H1% 

1050  POKE  88,1.2  : POKE  89,H2% 

1060  POKE  95, L3  : POKE  96,113% 

1070  SYS  41919  : RETURN 

Se  puede  simplificar  más  el  número  de  líneas  de  BASIC,  de  esta  rutina, 
haciendo  previamente  los  cálculos  que  realizan  las  lineas  1000,  10 10, 
1020,  1030  y poner  en  las  lineas  1040,  1050  y 1060  los  valores  obtenidos  de 
las  variables  correspondientes. 

Recibid  un  saludo  y una  felicitación  por  la  revista  que  ha  mejorado 
mucho. 

J.  R.  L.  (Iniciales  por  expreso  deseo) 
B ERG  ARA  (Guipúzcoa) 
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RESTORE  SORDO 

Me  gustaría  que  me  acla- 
rasen una  duda:  Para  de- 
volver el  C-64  a su  presen- 
tación normal  (después  de 
haber  usado  colores,  inversión,  etc.)  se 
pulsa  primero  RUN/STOP,  y sin  soltar 
esta,  se  aprieta  RESTORE.  Pero  en  mi  C-64 
casi  nunca  me  funciona  la  primera  vez, 
tengo  que  repetirlo  varias  veces  hasta  que 
me  salga  READY.  Sé  que  no  soy  el  único 
que  me  pasa  esto,  y me  gustaría  saber  a qué 
es  debido. 

XAVIER  PRAT  I BURDO 
C/  RABAL  SEA.  EULALIA  S/N. 

SEA.  MARIA  D’OI.O  (BAGES) 

BARCELONA 

Esto  se  debe  a las  rutinas  del  sistema  ope- 
rativo (KERNAL)  del  C-64  y es  común  a 
todos  los  C-64.  No  le  pasa  nada  a tu  aparato. 

¡PUES  NO  JUEGO,  HALA! 

El  programa  “Batalla  Na- 
val VIC-20”  (Commodore 
World,  ntí  2,  pág.  36)  es 
inaceptablemente  injusto 
para  con  el  jugador  humano. 

Todo  queda  equilibrado  añadiendo:  585 
IF  PE > 57  AND  PE <63  THEN  450. 

En  caso  contrario,  sólo  el  enemigo  tiene 
derecho  a repetir  tras  un  acierto,  y...  ¡así, 
cualquiera! 

GUILLERMO  FATAS 
SERA.  TERESA.  58 
ZARAGOZA-6 

Vale  hombre,  que  ganes  muchas  partidas. 


VI 020  Pías. 


Tarjeta  64K-RAM  + 2K  EPROM  18.900 
Tarjeta  2K  +■  2K  EPROM  3.695 

Tarjeta  40/80  columnas  + 

3,5K  RAM  16.350 

Unidad  de  expansión  de  2 slots  2.695 
Unidad  de  expansión  de  5 slots  9.390 
Printer  Buffer  PAR/PAR  16K  24.790 

Joystick  "ZIP  STIK“  2.900 

CBM64 

Tarjeta  80  columnas  17.900 

Tarjeta  4K  + 8K  EPROM  4.750 

Unidad  de  expansión  de  2 slots  2.695 
Unidad  de  expansión  de  5 slots  12.495 
Printer  Buffer  SER/PAR  32K  27.950 

PARA  VIC-20  y CBM64 

Tableta  Gráfica  KOALA-PAD  23.500 
SINTETIZADOR  DE  VOZ  16.500 

PARA  TODO  TIPO  DE  ORDENADORES 

PROGRAMADOR  DE  EPROM  14.995 
BORRADOR  DE  EPROM  8.775 


Pedidos  e información: 

DELTABIT 

Colón,  20-4.5*  - SILLA  (VALENCIA) 
Tel.  (96)  120  29  25 


UNA  DE  INDIOS 

Me  gustaría  saber  qué 
función  tiene  la  tecla  supe- 
rior izquierda  del  VIC-20 
que  es  una  Hecha  horizon- 
tal que  apunta  hacia  la  izquierda. 

No  tiene  función  especial , es  como  cual- 
quier otra  ( ejemplo ; asterisco).  Sólo  en  el 
superexpander  que  activa  el  sonido.  “El 
Romance  con  el  VI C”  ( Comm . World  NQ  3) 
la  utiliza. 


2 cartas  contestadas  por  MEC 

PASCAL  PARA  C-64 

Poseo  un  C-64,  estoy  muy 
comento  con  la  compra 
del  aparato  y agradezco  el 
esfuerzo  de  la  revista;  pero 
mi  decisión  de  la  compra  se  consolidó  al 
aparecer  desde  mayo  a navidades  del  83,  la 
aparición  en  un  futuro  inmediato  del  cartu- 
cho PASCAL  U.C.S.D. 

En  la  nueva  propaganda  que  presenta 
Microelectrónica  ya  ni  figura  relación  a 
posible  a dicho  lenguaje. 

Agradecería  una  contestación  elocuente. 
Y en  el  caso  de  ser  una  mentira  por  causas 
de  estrategia  comercial,  desearía  saber  si 
está  previsto  y el  tiempo  en  aparecer  en  el 
mercado  de  un  lenguaje  en  programación 
estructurada,  que  es  la  finalidad  que  perse- 
guí en  mi  compra. 

J.  F.  FERNANDEZ  AREVALO 
AVDA.  MEDITERRANEO . 39-3-1 
MADRID-? 

SEGUIMOS  CON  PASCAL 

Soy  un  suscriptor  de  su 
revista  “COMMODORE 
WORLD"  y les  escribo 
para  hacerles  una  consulta. 
Esta  viene  dada  al  recibir  la  noticia  de 
que  el  ordenador  Sinclair  Spectrum  tiene 
un  programa  compilador  PASCAL  en  12 

K,  que  posteriormente  he  comprobado  su 
correcto  funcionamiento.  La  consulta  es  si 
está  previsto  o está  en  estudio  algún  pro- 
grama similar  en  cassette  o cartucho  de 
PASCAL,  o en  algún  otro  lenguaje  de  pro- 
gramación (p.e.  PROLOG),  para  el  VIC- 
20.  Igualmente  si  es  afirmativo  me  gustaría 
saber  en  cuánto  tiempo  está  previsto  que 
saldría  al  mercado. 

Me  interesa  mucho  su  respuesta  y me 
gustaría  poder  trabajar  con  él  en  mi  orde- 
nador personal. 

Me  despido  no  sin  antes  agradecerles  su 
atención,  y esperando  una  pronta  respuesta. 

ANTONIO  LU QUE  LUZ 
CV  FRANCIA . 56-1°.  2.a 
HOSPITALET.  (BARCELONA) 

Lamentablemente  no  es  el  suyo  el  único 
caso  del  que  tenemos  noticias.  Nosotros  no 
sabemos  aún  de  la  existencia  de  ningún 
PASCAL  en  el  mercado  para  el  Commo- 


dore. De  todas  formas,  Commodore  prome- 
tió que  sacaría  uno.  Esa  es  la  razón  por  la 
cual  nosotros  lo  incluimos  en  la  propaganda 
del  64.  Y seguimos  incluyéndolo.  Esto  puede 
comprobarlo  en  el  folleto  que  le  adjuntamos. 
La  razón  es  que  estamos  convencidos  de  que 
Commodore  lo  sacará,  ya  que  también  pro- 
metió el  LOGO,  y lo  hizo. 

De  todas  formas  nosotros  estamos  haciendo 
lo  imposible  intentando  conseguir  algún 
PASCAL  por  alguna  otra  fuente,  ya  que  lo 
seguimos  considerando  como  una  interesante 
opción  para  el  Commodore  64. 

Por  las  razones  expuestas  anteriormente 
comprenderá  que  no  le  podamos  dar  un  plazo 
de  aparición  en  el  mercado  nacional,  aunque 
intentaremos  con  todos  los  medios  a nuestro 
alcance  que  este  plazo  sea  lo  más  breve  po- 
sible. 

Nos  es  grato  comunicarle  la  existencia  de 
otros  lenguajes  estructurados  ya  disponibles 
para  el  Commodore  64,  tales  como  el 
SIMON'S  BASIC , el  LOGO  y el  FORTH. 

MICROELECTRONICA  Y CONTROL.  S.A . 
DPTO.  ORDENADORES  PERSONALES. 

LO  DICE  EL  MANUAL 

lfi.  Cómo  podría  efectuar 
el  proceso  contrario  de 
PEEK,  o sea  un  número 
convertido  en  su  patrón  de 
bits  pasarlo  a su  estado  normal  por  lla- 
marlo de  alguna  forma. 

2-  Cómo  hacer  que  un  programa,  de 
juegos  por  ejemplo,  se  realicen  varias  cosas 
a la  vez,  es  decir,  que  tú  estés  disparando  y 
al  mismo  tiempo  se  estén  moviendo  los 
disparados. 

3°  Cómo  se  pueden  realizar  dibujos 
complicados  como  por  ejemplo  un  avión. 

4-  Por  último  me  gustaría  saber  para 
qué  se  puede  aplicar  el  código  ASC. 

Antes  de  despedirme  quiero  felicitarles 
por  esta  maravillosa  revista. 

Ah!  tentó  14  años 
JAVIER  TORRES  DE  Z UBIZA RRETA 
CV  RAMBLA  DE  MENDEZ  NUÑEZ,  45 
A LIC ANTE- 2 

IQ . El  proceso  contrario  al  de  PEEK  lo 
realizas  con  el  comando  POKE,  y viene 
explicado  en  el  manual  de  tu  programador. 

2Q.  Simplemente  diseñándolo  así  en  el 
programa.  En  lugar  de  hacer  que  el  pro- 
grama mueva  el  disparo  hasta  el  final,  haz 
que  lo  mueva  un  paso,  comprueba  si  has 
vuelto  a disparar , mueve  los  ovnis,  y vuelve  a 
mover  el  primer  disparo , así  hasta  el  final. 

3- .  Los  dibujos  algo  complicados  requie- 
ren la  ayuda  del  cartucho  superexpander  y/ o 
un  programa  ingenioso  que  los  defina  y per- 
mita utilizarlos,  mira  el  programa  “Aventu- 
ras en  el  desierto ” en  el  número  4 de  la 
revista  (el  jeep  está  definido  como  varios 
caracteres  juntos). 

4Q . El  American  Standard  Code  for 
Information  Interchange,  es  el  código  utili- 
zado en  casi  todos  los  ordenadores  modernos , 


I 
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y la  función  ASC  en  Basic  nos  devuelve  al 
código  ASCII  del  “string”  o cadena  que  uti- 
licemos como  argumento , te  puede  servir 
para  clasificar,  comparar  strings,  etc. 

EL  SIMONS  LO  HACE 

Quisiera  saber  si  existe 
para  el  C-64  un  cartucho 
como  el  que  existe  para  el 
VIC-20,  que  se  llama  SU- 
PEREXPANDER  y que  tiene  por  objeto 
interceptar  el  Basic  de  Commodore  incre- 
mentando sus  instrucciones  y comandos  en 
gráficos  y sonidos,  introduciendo  coman- 
dos como  GRAPHIC,  COLOR,  POINT, 
DRAW,  CIRCLE,  PA1NT,  SOUND,  etc. 

MAURICIO  JAVIER  M.  GONZALEZ 
EJE.  RIRATALLADA.  11-3 1.a 
SA  BA  DEL  L ( Barcelona) 

Ya  existe  un  cartucho  similar  al  superex - 
pander  para  el  C-64,  se  trata  del  SIMON  S 
BASIC,  lo  comercializa  Microelectrónica  y 
Control,  y la  reseña  de  este  cartucho  sale  en 
este  mismo  número. 

¿CONFUSION  DE  PATILLAS? 

En  el  n9  3 de  Commodore 
World,  apareció  un  artí- 
culo titulado  “Cómo  aña- 
dir una  tecla  RESET'. 
Pues  bien  el  artículo  me  pareció  bien  y 
fabriqué  dicha  tecla,  la  conecté  y efectiva- 
mente funcionaba  perfectamente.  Pero  cual 
es  mi  sorpresa  que  al  volver  a conectar  la 
impresora,  esta,  ya  no  recibía  las  instruc- 
ciones del  C-64.  Más  exactamente,  para  lis- 
tar un  programa  por  la  impresora  pongo 
OPEN  1,4  : CMD  1 : LIST  y pulso 
RETURN,  no  ocurre  nada,  es  decir  la 
impresora  ni  se  inmuta  y en  la  pantalla 
sigue  la  instrucción  tal  cual,  como  si  espe- 
rara que  la  impresora  terminase.  Si  la 
impresora  no  está  presente  el  ordenador  lo 
detecta. 

Tengo  que  decir  también  que  la  impre- 
sora debe  estar  bien  pues  la  he  comprobado 
con  un  VIC-20  y funciona  perfectamente. 

Es  por  lo  que  ruego  me  contesten  a las 
siguientes  preguntas: 

l9  ¿Puede  haberse  estropeado  la  CPU? 

2°  ¿Puede  haber  sido  a causa  de  la  tecla 
Reset? 

39  ¿Si  no,  qué  puede  haber  ocurrido? 

49  ¿Qué  es  lo  que  puedo  hacer  “yo" 
aparte  de  llevarlo  a arreglar? 

I9 . La  CPU  no  puede  estropearse  con  el 
pulsador  de  RE  SET. 

29 . El  fallo  no  puede  ser  causado  por  la 
incorporación  de  esta  tecla  si  las  conexiones 
fueron  correctas. 

3ff.  Puede  haberse  estropeado  la  CIA 
(6526)  que  se  encarga  de  las  comunicaciones 
con  periféricos  a través  del  bus  serie,  esto 
pudo  ser  causado  por  un  error  en  el  conexio- 
nado o por  desconectar  el  cable  del  bus  serie 
con  la  tensión  aplicada  al  64  y/ o la  impre- 
sora. 


4Q.  Puedes  enviarnos  tus  señas  y teléfono, 
en  la  carta  no  aparecían. 


ORDENADOR  PERSONAL  O 
CRONOMETRO  DE  PRECISION 

Quisiera  haceros  una  pre- 
gunta sobre  la  función 
TI$.  Dicha  función  activa 
el  reloj  interno  del  orde- 
nador y emite  la  hora  en  tiempo  real.  En  un 
caso  he  comprobado  que  dicha  hora  se 
atrasa  1 segundo  cada  4 horas,  o sea,  6 
segundos  al  día,  con  mi  C-64.  Esto  sin 
realizar  ninguna  operación  de  E/S  con  nin- 
gún periférico,  pues  ya  sé  que  el  reloj  se 
detiene  si  utilizo  el  Datassete. 

Quisiera  saber  si  esto  es  normal  en  todos 
los  ordenadores  o simplemente  es  un 
defecto  del  mío. 

JORDI  GONZALEZ  MIRABET 
A V.  BORBON.  72 
BARCELONA- 16 

El  ordenador  no  es  un  cronómetro  de  pre- 
cisión, si  quieres  corregir  este  error  de  cuatro 
segundos  diarios  deberás  llevarlo  al  labora- 
torio donde  te  lo  calibrasen  con  un  Patrón  de 
Precisión . Pero  creo  que  sería  pasarse  un 
poco  ya  que  para  mantener  esa  precisión  debe- 
rías mantener  la  temperatura  constante,  si  la 
temperatura  varía  lo  hace  el  ajuste  (dentro  de 
unos  límites). 

Es  perfectamente  normal  ese  “retraso"  en 
tu  reloj. 


PASCAL  Y TRES  DIMENSIONES 

Soy  suscriptor  de  la  revista 
“Commodore  World"  y 
les  escribo  para  preguntar 
una  serie  de  cosas: 

— Me  gustaría  saber  sí  existe  (pienso  que 
sí)  algún  cartucho  o cinta  para  poder  pro- 
gramar en  pascal  con  el  C-64,  es  el  ordena- 
dor que  tengo.  De  ser  así,  desearía  recibir 
toda  la  información  sobre  ello  (precio, 
dónde  encontrarlo  o pedirlo,  etc.). 

— También  me  gustaría  que  publicaran 
en  su  revista,  algún  problema  sobre  gráfi- 
cos y dibujos  tridimensionales  (me  gustaría 
saber  cómo  hacer  estos  dibujos  3-d, 
podrían  escribir  algún  artículo  sobre  ello). 

— En  una  librería  pude  observar  la  exis- 
tencia de  un  libro  dedicado  integramente  al 
C-64,  pero  en  inglés,  me  gustaría  saber  el 
título,  precio  y dónde  poder  encontrar  (o 
al  menos  la  editorial  para  poderlos  pedir) 
libros  sobre  el  C-64. 

JUAN  ANTONIO  OREJA  MORENO 
C/  ESTADIUM,  10-4°  E 
BADAJOZ 

Tu  primera  pregunta  creo  que  la  aclara  la 
contestación  de  Microelectrónica  y Control 
a J.F.  Fernández  en  este  mismo  número. 

Intentaremos  atender  tu  petición  sobre 
dibujos  en  tres  dimensiones,  pero  lo  imposi- 
ble lo  hacemos  en  el  acto,  con  los  milagros 
tardaremos  un  poco  más. 

Quiero  decir  que  no  podemos  atender  a 
todos  a la  vez  como  podrás  imaginar,  pero 
danos  tiempo  y veras... 
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EN  VALLADOLID 


VENTA  DE 
ORDENADORES 


commodore 

^ COMPUTER 


Accesorios,  programas  profesionales,  juegos 
APRENDE  A PROGRAMAR  POR  ORDENADOR 

• Cursos  intensivos  de  verano 

• Clases  muy  reducidas,  horario  flexible 


Profesores  capacitados 
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Mencionando  este  anuncio,  tendrás  derecho  a una  hora  de  clase,  completamente 
gratis,  de  introducción  a la  informática  con  un  ordenador  de  verdad. 


NUEVOS  CONCEPTOS 

C/  Magallanes,  1Ü-A  - VALLADOLID 

(Bocacalle  del  Paseo  Zorrilla  entre  los  núms.  74  y 78) 
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Libros  en  inglés  sobre  el  C-64  existen  en 
cantidades,  los  tienes  sobre  gráficos , música, 
programas  listados,  sus  rutinas  de  código 
máquina,  etc.  No  sé  cuál  será  el  tema  que  te 
interese,  pero  si  nos  llamas  por  teléfono  o nos 
escribes  especificándolo  quizás  podamos  con- 
testarte. 

QUIERO  UNA  DE  CATORCE 

Poseo  desde  hace  poco  un 
C-64  y quisiera  aclarar 
unas  dudas  y haceros  al 
mismo  tiempo  una  petición. 

Iv.  ¿Es  posible  simultanear  mayúsculas 
y minúsculas  en  la  pantalla?  ¿Cómo? 

2Ü  La  tecla  superior-izquierda  ( ),  ¿tiene 
alguna  función  especial? 

3°  ¿Podéis  publicar  algún  programa  de 
combinatoria  aplicada  a quinielas? 

Por  ejemplo,  que  mostrara  las  combina- 
ciones posibles  para  un  determinado 
número  de  1,  X,  2. 

Agradeciéndoos  de  antemano  vuestra 
atención,  recibid  un  cordial  saludo. 

P.S.  ¿Conocéis  algún  programa  aplicado 
a la  medicina  para  el  C-64? 

MIGUEL  BARNOST  BUFl 
PADILLA . 282 
BARCELONA-25 

Para  simultanear  mayúsculas  y minúscu- 
las, pulsa  las  teclas  SÑ/FT  y Commodore 
(abajo  a la  izquierda)  y ya  puedes  teclear. 

La  tecla  no  tiene  ninguna  función  especial, 
el  VI C la  usa  para  activar  el  sonido  con  el 
super-expander,  y en  el  artículo  “ Romance 
con  el  Vic”  apareció.  En  realidad  es  otra 
tecla  más  en  el  teclado  y tú  la  puedes  utilizar 
como  quieras  en  tus  programas. 

No  es  la  primera  vez  que  nos  preguntan 
sobre  programas  de  quinielas,  pero  no  los 
tenemos , si  nos  llega  alguno  lo  publicaremos. 

Programas  de  medicina  sabemos  de  los 
que  hicimos  la  reseña  en  el  número  anterior 
(Metisistemas)  y en  uno  de  los  próximos 
números  aparecerá  una  reseña  sobre  otro  de 
hipnosis,  relajación , adelgazamiento , etc. 
Parece  interesante... 

QUIERO  JUGAR  CON  VENTAJA 

Les  dirijo  esta  carta  para 
saber  si  en  el  programa 
“Batalla  Naval  C-64”  que 
publicaron  en  el  n°  2 de  su 
revista  hay  algún  error,  o simplemente  falta 
alguna  línea. 

Yo  tecleo  cuidadosamente  el  programa 
(y  lo  comprobé  dos  veces)  y resulta  que 
cuando  disparo  a los  barcos  del  ordenador, 
éste  no  me  indica  si  lo  he  alcanzado  o no,  y 
en  el  caso  de  haberlo  alcanzado  no  me 
permite  volver  a tirar,  cosa  que  sí  hace  el 
ordenador  cuando  dispara  contra  mis  bar- 
cos. 

Dándoles  las  gracias  por  adelantado  y en 
espera  de  su  grata  contestación,  se  despide 
de  ustedes. 

FRANCES C LLENAS  I TORREN i 
LAIGUeTA,  166 

LA  BISBAL  DEMPORDA  (GERONA) 
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No  hay  ningún  error  en  la  batalla  naval  del 
número  2.  Cuando  disparas  suena  el  agua  o 
el  sonido  de  alcanzado  y en  su  caso  el  de 
hundido.  Si  le  das  no  tienes  oportunidad  de 
repetir  ya  que  tú  tienes  lógica,  eres  inteli- 
gente, y él  jugaría  con  desventaja  al  estar  sus 
disparos  realizados  en  modo  aleatorio,  pero 
si  quieres  igualar  las  cosas  puedes  añadir  la 
línea  que  nos  ha  enviado  Guillermo  Fatas  de 
Zaragoza: 

585  IF  PE  >57  AND  PE  < 63  TU  EN  450. 

Ahora  podrás  repetir  el  disparo  cuando 
aciertes,  pero  eres  injusto  con  el  ordenador.. 

INCOMPATIBILIDADES 

¿Son  compatibles  los  pro- 
gramas de  CBM-4000  v 
8000  con  el  CBM-3000  y 
los  de  V-20  y C-64  con 
CBM-3000,  bien  entendido  que  en  este 
último  modelo  no  operarían  los  comandos 
correspondientes  a los  anteriores  modelos, 
como  color,  sonido,  etc. 

Al  CBM-3032,  que  es  el  modelo  que 
tengo,  le  he  realizado  unas  conexiones  con 
un  radio-cassette  (para  utilizarlo  solamente 
como  altavoz)  y he  conseguido  reproducir 
efectos  sonoros  de  un  programa,  que  puede 
copiarse  en  otro  diskette  por  lo  que 
entiendo  que  no  está  protegido,  pero  como 
me  parece  que  está  escrito  en  lenguaje 
máquina,  no  tengo  ningún  conocimiento 
del  tema,  no  he  sido  capaz  de  listarlo  en 
impresora,  ni  por  pantalla  claro,  para 
aprender  a utilizar  los  interiores  de  la  CPU 
que  posibilitan  su  implantación  en  otros 
programas,  tanto  recreativos,  como  para 
enviar  señales  de  aviso  en  las  aplicaciones 
que  suelo  utilizar.  ¿Puede  decirme  alguien 
cómo  puedo  desbloquear  la  CPU  para  que 
me  liste?  (repito  que  el  programa  puede 
copiarse  cuantas  veces  quiera  o sea  que  no 
está  protegido)  ¿Commodore  World  podría 
enseñarnos  a los  usuarios  del  3000  algunos 
trucos  del  lenguaje  máquina  que  posibiliten 
efectos  sonoros  o hay  alguien  que  lo  sepa  y 
quiera  enseñarme? 

MIGUEL  FERNANDO  GARCES  TERCERO 
C/  SAN  PEDRO.  2-8°  A.  EDJF.  ANTICA 
APARTADO  DE  CORREOS  286 
ALMERIA 

Los  programas  de  otras  series  de  Commo- 
dore son  compatibles  con  el  CBM-3000  den- 
tro de  unos  límites , aparte  de  los  comandos 
de  color  y sonido  incorporados  a modelos 
más  modernos  tienes  que  tener  en  cuenta  las 
diferencias  de  las  versiones  de  BASIC,  enu- 
merar las  diferencias  ocuparía  todo  un  libro, 
y te  puedo  recomendar  que  des  una  ojeada  a 
la  “ Guia  del  Ordenador  Personal  PFT/CBM" 
McGraw  Hill  España. 

Imagino  que  no  tendrás  un  desensambla- 
dor, si  lo  tuvieses  seguramente  habrías  lis- 
tado el  programa,  pero  de  poco  te  servirá  si 
no  sabes  código  máquina,  incluso  sabiendo  es 
difícil  averiguar  lo  que  hace  cada  sección  del 
programa,  sería  necesario  conseguir  el  lis- 
tado del  código  fuante  comentado  para  poder 


entenderlo...  o una  gran  dosis  de  intuición...  i 

Todo  lo  que  nos  manden  o consigamos  ¡ 
sobre  el  3000  lo  iremos  publicando,  pero  no  , 
podemos  probarlo  ya  que  sólo  tenemos  en  la  | 
redacción  VIC -20,  C-64  y C-700.  ¡ 

MODEM  MODERNO  CON  GUITARRA 

Hola,  sólo  quiero  hacer  un 
par  de  preguntas. 
lu.  ¿Cuál  es  la  diferencia  ¡ 
entre  MODEM  (modula- 
dor/demodulador) y un  acoplador  acús- 
tico, y que  hay  que  hacer  para  conectar  uno 
de  estos  aparatos  a un  Commodore-64? 

2U  Sería  posible  conectar  una  guitarra  al 
C-64?  ¿Dónde  y cómo?.  Gracias. 

F.  C.  T. 

BARCELONA 

El  MODEM  es  el  circuito  que  convierte 
los  ceros  y unos  de  tu  ordenador  en  tonos  de 
audiofrecuencia  para  que  puedan  ser  trans- 
mitidos por  la  línea  telefónica , grabados  en 
un  magnetófono  normal  o emitidos  por  una 
emisora  de  radio , mientras  que  el  acoplador 
acústico  es  uno  de  los  dispositivos  que  sirven 
para  conectar  el  modem  al  teléfono  en  esen- 
cia no  es  más  que  un  micrófono  y un  auricu- 
lar, que  colocados  junto  a los  del  teléfono 
permiten  “ acoplar ” las  señales  “ acústicas ”. 

Lo  de  acoplar  el  C-64  a una  guitarra  es 
posible,  sólo  tendrías  que  saber  exactamente 
lo  que  quieres  hacer,  diseñar  un  interface 
apropiado  y el  programa  correspondiente. 
Las  aplicaciones  y posibilidades  de  un 
microordenador  están  limitadas  por  la  habi- 
lidad e imaginación  del  programador  y los 
periféricos  que  le  conectes. 

DE  TODO  UN  POCO 

Soy  un  lector  de  vuestra 
revista  y tengo  un  VIC-20, 
y quiero  haceros  varias 
preguntas  acerca  de  él: 

1Q.  Cuánto  puede  costar  un  modem  y si 
Commodore  tiene  uno  propio. 

2Q.  Cuáles  son  las  instrucciones  para 
controlar  el  “joystick” 

3Ü.  Tengo  unos  programas  para  el  VIC 
que  no  los  he  hecho  yo,  sino  que  los  he 
copiado  de  otras  revistas,  ¿puedo  enviarlos 
para  que  los  publiquéis?  Algunos  son  muy 
buenos. 

4Q.  Cuánto  vale  el  cartucho  “super- 
expander” 

5y.  Si  al  crear  nuevos  caracteres  en  el 
VIC  ¿se  pueden  imprimir  con  la  impresora? 

¿Qué  cintas  aconsejáis  para  crear  una 
uiunóteca  de  programas? 

No  tengo  más  preguntas  que  haceros 
pero  sí  quiero  daros  esta  sugerencia:  des- 
pués de  comprobar  un  programa,  podríais 
sacar  la  lista  por  la  impresora  y publicarla. 
Evitando  así  los  errores  de  imprenta. 

FRANCISCO  JAVIER  RECIO  LLAMALA 
FERNAN  CABALLERO.  22 
SEVILLA-! 

1Q  No  tenemos  precios  de  módems  en 


España , si  alguna  casa  los  tiene  esperamos 
que  te  los  envíen  por  correo  y a nosotros 
también. 

2o  Para  leer  la  posición  del  Joystick  debes 
utilizar  los  PEEK  (37137)  y PEEK  (37152). 

3-  Aunque  sean  buenos  es  mejor  que  no 
los  mandos , no  podríamos  publicarlos  por  no 
tenerlos  “copyrights". 

4Q  Creo  que  vale  9.600  pías. 

5o  Efectivamente,  el  manual  de  la  impre- 
sora te  explica  cómo  hacerlo. 

6-  No  podemos  aconsejarte  sobre  la  com- 
pra de  cintas  para  tu  biblioteca , sería  perju- 
dicar a unos  anunciantes  en  beneficio  de 
otros,  y además  el  tipo  de  programas  que 
deberías  comprar  depende  de  tus  gustos  y las 
aplicaciones  a que  quieras  destinar  tu  orde- 
nador. 

Los  programas  salen  listados  directamente 
de  impresora  y son  publicados  así  para  evitar 
errores  de  imprenta,  están  comprobados 
todos , pero  hay  veces  que  una  determinada 
secuencia  de  teclas , en  un  nivel,  etc.  puede 
ocasionar  un  error  que  no  encontramos  al 
probarlo , pero  en  cuanto  nos  damos  cuenta  lo 
publicamos  en  “ meteduras  de  patas",  somos 
humanos  y tenemos  fallos,  intentaremos  ser 
casi  perfectos... 

EDICION  DE  LINEAS 

Me  gustaría  haceros  algu- 
nas preguntas,  en  primer 
lugar  me  han  hablado 
mucho  en  el  sentido  de 
que  al  escribir  un  programa  en  CBM-64, 
cuando  dos  lincas  son  muy  parecidas,  tiene 
una  gran  facilidad  y yo  todas  las  líneas  las 
tengo  que  repetir  una  a una,  no  veo,  dónde 
está  la  ventaja.  También  os  pediría  que 
escribiéseis  algún  programa  para  que  al 
repasar  un  programa  largo  no  fuese  tan 
tedioso  escribir  línea  por  línea,  se  que  para 
el  VIC-20  sí  que  lo  hay.  Me  gustaría  saber  si 
ha  salido  el  CURSO  DE  INTRODUC- 
CION AL  BASIC  2.a  PARTE,  puesto  que 
el  primero  te  deja  un  poco  desinformado, 
sobre  todo  a los  profanos  como  yo. 

BERNARD1N0  RODRIGUEZ  SEGURA 
RATERIA.  30-40 . 3V  D 
M ONCADA -B1EUR CA  CION  (Barcelona) 

Programas  que  se  escriban  solos  hay 
poquísimos  (tengo  sólo  uno:  Crear  un  VI C- 
CASSO  del  número  4 de  Commodore 
World),  pero  si  te  refieres  a la  instrucción 
AUTO , necesitas  el  cartucho  correspon- 
diente a tu  ordenador:  el  de  Ayuda  a!  pro- 
gramador para  el  VIC-20  o su  equivalente 
para  tu  C-64  (como  el  Simón' s Basic  de 
Microelectrónica,  el  Vic-Tree,  etc.). 

UTILIZACION  DE  CASSETTE  NORMAL 

Le  estaría  muy  agradecido 
si  con  las  revistas  de 
COMMODORE  WORLD, 
me  enviara  si  fuera  posible 
el  esquema  del  interface  para  conectar  un 


cassette  grabador/reproductor  de  tipo 
normal. 

Sin  más  por  el  momento  se  despide  espe- 
rando sea  atendida  mi  petición. 

ENRIQUE  LAIN  SIMON 
LEOPOLDO  ROMEO,  19 
ZARAGOZA-2 

Existe  un  interface  de  ese  tipo  en  el  comer- 
cio, pero  al  igual  que  los  aparecidos  en  algu- 
nas revistas,  su  funcionamiento  no  es  del  todo 
satisfactorio. 

El  problema  reside  en  que  un  grabador  de 
audio  tiene  en  su  interior  circuitos,  para  pro- 
tegerle contra  la  saturación  (A.L.C.),  y el 
Datassette  hace  todo  lo  contrario:  grabar 
saturando  siempre  para  evitar  errores. 

Si  lo  deseas  podemos  publicar  un  esquema 
de  uno  que  yo  utilicé  durante  mucho  tiempo 
por  falta  de  “ cucas  ”,  pero  me  cansé  de  los 
“ LÓADING  ERROR" y compré  el  cassette 
del  V1C. 


¿IRQ  en  “VIC-EXPANSION”? 

En  tres  artículos  publica- 
dos en  la  revista  “Your 
Computer"  (oct.  nov.  dic. 
1983)  aparecía  desarrollada 
una  ampliación  del  BASIC  para  el  VIC-20, 
basada  (si  es  que  no  entendí  mal)  en  el  vec- 
tor IRQ.  ¿Cómo  se  puede  conseguir  efec- 


tuar tal  ampliación,  por  ese  u otro  método, 
en  el  CBM-64?  Otra  pregunta  que  me  gus- 
taría que  me  contestáseis  es:  ¿cuáles  son  las 
direcciones  de  las  principales  rutinas  del 
intérprete  BASIC  en  dicho  aparato?  Os 
agradecería  que  me  contestáseis  estas  pre- 
guntas, o bien  publicáseis  artículos  relacio- 
nados con  estos  temas,  apenas  tratados  en 
la  “Guía  del  usuario". 

ANTONIO  RIVAS  MENENDEZ 
CARTAGENA.  5-3°  DCIIA. 

LA  CORUÑA-6 

Lo  primero  espero  que  lo  tengas  en  tu 
poder  por  correo. 

En  inguno  de  los  tres  números  que  men- 
cionas he  visto  que  hable  sobre  modificar  el 
vector  IRQ.  (Tengo  los  tres  números  y los 
listados  vienen  repetidos  todos  en  el  último, 
pero  tienen  errores,...  pruébalos...  y tran- 
quilo, no  te  enfades  con  el  autor  ni  con  la 
revista...  pasa  en  las  mejores  familias...). 

Sobre  el  modo  de  ampliar  el  Basic  de  tu 
C-64  intentaremos  publicar  artículos  en  los 
que  lo  puedas  ver.  El  sistema  es  el  mismo  que 
en  el  disk-O-Vic  publicado  en  el  número  2, 
sólo  varían  algunas  direcciones  de  algunas 
rutinas. 

Sobre  las  rutinas  de  cálculo  del  intérprete 
BASIC  aparecieron  artículos  en  los  números 
11  y 12  de  Club  Commodore,  y nosotros 
iremos  publicando  lo  que  podamos. 


PROGRAMADORES 

EDITORIAL  DE  SOFTWARE 
INTERESADA 
EN  PUBLICAR 
Y COMERCIALIZAR 
PROGRAMAS 
PARA  ORDENADORES 
PERSONALES 
(COMMODORE  64, 

SPECTRUM,  etc.) 

CASA  DE  SOFTWARE  S.A.  Aragón,  272,  82  62.  Barcelona 

Teléfono:  215  69  52 
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HARD  COMMODORE  64  JUEGOS 


HARD  COMMODORE  64  UTILID 


RENOVACION  EN  MARCHA,  S.  A. 

c/.  Espronceda.  34-2°  int  MADRID-3 

Teléfono  (91)44124  78 

REM  SHOP  1 

c/.  Galileo.  4 - MADRID- 15 
Teléfono  (91)445  2808 


REM  Somos  profesionales 
REM  Nace  para  dar  mejor  servicio 
REM  Como  oferta  de  lanzamiento,  entrega  un  Bono  del  10%  del 
importe  de  su  comora  oara  adquirir  nuevo  material  o 
programas 

REM  CAMBIO  acepta  equipos  de  2 a mano  al  adquirir  otro  nuevo 
REM  Consúltanos  tus  necesidades. 


1 Commodore  64  79.900  Pías.  1 Commodore  64  79.900  Ptas. 

1 Cassette 12.000  Ptas.  1 Cassette 12.000  Ptas 

1 Joystick  (puño) 4.000  Ptas.  1 Impresora  GP500  + Interíace  69.900  Ptas 

2 Paddle 2.500  Ptas.  1 Unidad  de  Disco  (170  K)  95.000  Ptas. 


TOTAL 98.400  Ptas 


TOTAL  256.800  Ptas 


BOLETIN  DE  PEDIDO 


REtl  c Espronceda.  34-2.°  int  - MADRID-3 


J Nombre  y apellidos  

j Dirección  y Telefono . ...  ........ 

I Deseo  recibir  más  nlo'maoon 

l • 

jUeseo  adquirí' ....  .. 

I Precie  total  i me  uve  300  Ptas  de  ijasios  de  envió) 

I 

(Giro  Postal  Gire 'eleg'aiicc  Transferencia  Bancarti 

I ingreso  en  cuenta  3769  8 BANCO  Di  BU  BAO  Píos  Posas  44  MADRiD  3 
(latón  aejunto  Ta  ór  conformado  aciunia 


j:a’ieta  VISA  numero 
¡Fecha  Caducidad  ... 


Firma 


SOFT  COMMODORE  64  UTI Ll DADES/EDUC ACION 


SOFT  COMMODORE  64  JUEGOS  TOP  TEN 


ONTABILIDA 
PERSONAL 
(cartucho  + 
disco) 


RA60NSDE 

(cartucho) 

joystick) 


BUGABOO 

(cinta) 


FUTBOL 

(cartucho) 


LE  MANS 
(cartucho) 


4.500  Ptas 


4.500  Ptas 


1.900  Ptas 


6 000  Ptas 


Ptas.  20. 

M 

Ras.  33. 

w 

■ 

m 

m 

CUDOLY 

CUBURT 

(cinta) 


REVENGE  ^ 
MUTANT  e 
CAMELS  — 


1 800  Ras 


2.200  Ras 


HUNGRY 

HORACE 

(cinta) 


DEFENDER  64 
(cinta) 


2.200  Ras 


1 700  Ras. 


REM  NOTICIAS 


PRECIO  TOTAL 
26  190  PTAS 
INCLUYENDO  COMMODORE 
♦ CASSETTE  + JOYSTICK 
+ PADDLE 
114  750  PTA$_ 


3.300  Ras. 


VISIBLE 

SOLAR 

SYSTEM 

(cartucho) 


4 500  Ras. 


MAILING  Y 
ETIQUETAS 
(cinta) 


3.300  Ras. 


CP/M 
(cartucho  + 
disco) 


ULTRABASIC 

(cinta) 


7 500  Ras 


MUSIC 

COMPOSER 

(cartucho) 


4.500  Ras 


20.000  Ras. 


PRECIO  TOTAL 
98  100  PTAS 
INCLUYENOO 
COMMODORE  64  + DISCO 
255  510  PÍAS 


REM  FRANCHISING 


REM  COMMOOORE  CLUB 


Si  cuifes  montar  te  propia  mir-tienaa  de  mioma  Reuniones  intercambio  de  programas  Rev-stas 
tica  c una  l enca  especiai?ada  envanos  lu  drec-  libros  Unete  a nosotros 
con  y recibirás  minrnacon  completa 

REM  INFORMATICA 

REM  DETALL  Tenemos  también  SPECTRUM.  SPECTRAVIDEO. 

S*  Quieres  vender  nuestros  productos.  envíanos  tu  ATMOS  ATARI  y MULTlTECH  Hard  y Solí 
cireccion  y reab  ras  puntual  iriormaoón 

REM  SOFT 

Paganos  2C°«  de  royales  de  irogramas  priqiraies  
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Servicio  gratuito  para  nuestros  lectores  particulares.  Empresas  300  ptas.,  por  línea. 

De  no  especificar  duración,  los  anuncios  serán  publicados  durante  1 mes. 


MERCADILLO 


• Compro  programa  en  cassette  para  VIC- 

20  de  cuenta  de  explotación  con  análisis  de 
gastos.  Tel.:  93/337  20  20.  Contactar  con 
Angel  Amores  C/  Sant  Roe,  12,  2-,  9Ü. 

HOSPITALET  DE  LLOBREGAT  (Barce- 
lona). (Ref  M-47) 

• Intercambiamos  programas  de  todo  tipo 
para  el  VIC-20.  Llamar  de  20  a 22  horas, 
preguntando  por  Aitor  o Ignacio.  Tel.: 
(943)  54  1 1 02.  C/  Lmeterio  Arrese,  5, 49  B. 
TOLOSA  (Guipúzcoa).  (Ref.  M-48). 

• Vendo  VIC-20  comprado  en  marzo-83, 
cartucho  de  ampliación  3 K,  las  dos  partes 
del  curso  de  basic,  l cartucho  de  juegos, 
varios  juegos  en  cassette,  todo  en  perfecto 
estado,  sólo  por  30.000  ptas.  Luis  Llenas. 
Cira.  Palamós,  34.  PLAYA  DE  ARO 
(Gerona).  Tel.:  (972)  81  76  51.  (Ref.  M-49). 

• Vendo  Commodore  64,  unidad  de  disco 
VIC  1541,  M ASTER  64,  disco  6 juegos, 
disco  música  64,  caja  10  diskettes  vírgenes 
Commodore,  2 joystick,  guía  de  referencia 
del  Commodore  64  y libro  con  más  de  50 
programas  listados.  Comprado  enero-abril 
84.  Todo  por  175.000  ptas.  José  Escudier. 
C/  Utrera,  6.  CADIZ.  Tel.:  (956)  25  27  67 
(tardes).  (Ref.  M-50). 

• Vendo  CBM64  - cassette  - manual  refe- 
rencia programador  joystick  - revistas  club 
Commodore  - 4 juegos  (Kick  off,  Mutans 
Camels,  Frogger,  Jam  breaker)  con  3 
meses,  por  85.000  ptas.;  precio  en  el  mer- 
cado 107.400  ptas.  Antonio  Cebrián  Martí- 
nez. C/  Francisco  Pizarro,  73,  39  D. 
ALBACETE.  (Ref.  M-51). 

• Vendo/compro/intercambio  programas 
para  el  VIC-20  no  ampliado  (cintas  y foto- 
copias). Francisco  Javier  Recio  Lamata.  C/ 
Fernán  Caballero,  22.  SEVILLA-!.  (Ref. 
M-52). 

• Intercambio  programas  de  todo  tipo 
para  un  VIC-20  ampliado  o sin  ampliar. 
Escribir  a Daniel  Bassas.  GERONA  capital. 
Plza.  Marqués  de  Camps,  16,  3e,  2.a.  Tel.: 

21  27  26.  (Ref.  M-S3 ). 

• Vendo  VIC-20,  con  cassette  Commo- 
dore, expansión  de  memoria  de  16  K,  super 
expander  para  gráficos  de  alta  resolución, 
curso  de  introducción  al  Basic  (Parte  I), 
programas,  juegos.  Comprado  en  octubre 
del  83,  buen  estado.  Precio:  55.000  ptas. 
Antonio  Utrera  Conejo.  C/  Cister,  6. 
MALAGA.  Tel.:  21  51  20.  (Ref.  M‘54). 


• Usuario  microordenador  VIC-20  desea- 
ría contactar  con  colegas  para  realizar 
intercambio  de  programas  de  todo  tipo  y de 
capacidad  RAM.  Rafael  O’Donnell  Verger. 
C/  31  de  Diciembre,  43,  l9,  2.a.  PALMA 
DE  MALLORCA-3.  (Baleares).  (Ref.  Xf-55). 

• Vendo  VIC-20,  1 cartridge,  guía  de  refe- 
rencia del  VIC,  algunos  programas.  Com- 
prado 9 de  septiembre  83.  Precio  30.000 
ptas.  Javier  Boneu  Bonet.  Avda.  Blondel, 
33.  LERIDA.  Tel.:  (973)  27  01  93.  (Ref. 
M-56). 

• Vendo  programador  universal  de  memo- 
rias EPROM,  módulos  32K  RAM  dinámi- 
cas, placas  ampliación  ROM  y diversos 
accesorios  y juegos  para  VIC-20.  Compra- 
ría unidad  de  discos.  Félix  Portabella 
Padro.  C/Fom  de  Santa  Lucía,  1-29. 
MANRESA  (Barcelona).  Tel.:  (93)  872  22  97. 
(Ref.  M-57). 

• Vendo  VIC-20  (en  buen  estado),  cas- 
sette, ajedrez,  introducción  al  Basic  I y los 
manuales  por  42.500  ptas.  Jorge  Llobet 
Ribeiro.  C/  Guillermo  Tell,  38  pral.  2.a. 
BARCELONA-6.  Tel.:  (93)  200  66  32.  (Ref 
M-58). 

• Esta  es  mi  primera  carta  que  les  mando 
después  de  la  de  la  suscripción.  Su  revista  es 
francamente  buena;  yo  aún  no  he  colabo- 
rado por  falta  de  tiempo  y sobre  todo  por 
carecer  de:  “Datassete”.  Tengo  16  años, 
muy  pocos  meses  con  mi  VIC-20  y mi  pre- 
supuesto no  me  da  para  más,  por  lo  cual 
deseo  publiquen  el  siguiente  llamamiento  a 
ver  si  hay  suerte,  en  la  sección  de  Mercadi- 
11o. 

A todo  amable  lector  que  su  antiguo 
“Datassete"  se  le  haya  roto  o agrietado,  o 
tenga  uno  que  le  va  mal  o simplemente  de 
sobra,  estaría  muy  agradecido  de  recibirlo. 
Como  aliciente  le  “cambiaría"  o regalaría 
un  interesante  interface,  catálogos  de  hard- 
software,  etc.  Gracias.  Máximo  Martín. 
Apartado  1 185.  LA  CORUÑA.  (Ref.  Af-59). 

• Vendo  consola  de  videojuegos  CBS 
Colecovisión  con  tres  cartuchos.  La  mejor 
del  mercado.  Como  nueva  (diciembre  1983). 
Sólo  por  25.000  ptas.  Interesados  de 
Barcelona  llamar  horas  fuera  de  oficina,  al 
Teléf.:  301  49  37.  BARCELONA.  C/Santa 
Ana,  10, 2°  1.a.  Manuel  Pons  Pons.  (Ref.  M-60). 

• Vendo  VIC-20  comprado  en  mayo  83 
totalmente  nuevo  -F  unidad  de  cassette 
(Dataset)  + cartucho  Super  Expander  + las 
dos  partes  del  curso  Basic  + las  cintas  + 
cintas  con  varios  programas  de  juegos  edu- 
cativos y de  gráficos.  Los  programas  tam- 
bién podría  mandar  con  los  listados.  Todo 


por  45.000  ptas.  Raimundo  J.  Lorenzo 
Peña.  C/  Ríos  Rosas,  3,  2*  D.  Tel.:  22  06  18. 

ALBACETE.  (Ref.  M 61). 

• C-64,  intercambio  programas,  experien- 
cias, etc.  Javier  Salas  Varela.  C/  Velázquez, 

1.  CADIZ-10.  (Ref.  M-62). 

• Vendo  Commodore  Vic-20,  comprado 
en  enero  del  84.  Garantía  vigente.  Está 
nuevo.  Incluye  cassette  commodore,  2 cin- 
tas de  programas,  la  suscripción  a esta 
revista  y otras  20  revistas  más.  Llamar  al 
(94)  416  49  04.  Preguntar  por  Asier.  (Ref. 
M-Ó3). 

• Vendo  VIC-20  (comprado  en  enero-84), 
con  cassette,  manual  del  usuario  y diversos 
juegos  y programas  de  aplicaciones  por 

40.000  ptas.  Llamar  a partir  de  las  17  horas. 
Salvador  Farres  Magem.  C/  Montaña,  55 
bjos.  VILADECANS  (Barcelona).  Tel.:  (93) 
658  02  60.  (Ref.  M-64). 

• Vendo  o cambio  programas  para  Com- 
modore 64.  Gráficos,  asscmbler,  proceso  de 
textos,  juegos,  etc.  Luis  Sánchez  Pérez. 
Apartado  176.  Tel.:  22  14  94.  TOLEDO. 
(Ref.  M-65). 

• VIC-20  nuevo,  vendo  por  haberme 
pasado  a ordenador  de  mayor  potencia. 

MICROORDENADOR  VIC-20  (enero 
1984)  por  25.000  ptas.  Cassette  nuevo  por 

10.000  ptas.  Basic  1 y 2 (libro  y cintas  juntos) 

5.000  ptas.  Varios  complementos  (libros 
VIC-20,  juegos,  cintas  ficheros,  datos  y con- 
tabilidad del  hogar  en  castellano  y en  inglés, 
etc.)  por  10.000  ptas.  Ampliación  de  16  K 
nueva  por  10.000  ptas.  Se  vente  todo  junto 
por  60.000  ptas.  En  unidades  sueltas,  precio  a 
convenir.  Llamen  Srta.  Marina.  Tel.:  380  35  44. 
BARCELONA.  (Ref  M-66). 

• Quisiera  comprar  y cambiar  el  cartucho 
super  expander  por  4.000  ptas.  junto  con 
un  cartucho  de  juego,  o por  muchos  cuen- 
tos de  super  héroes  y monopatín,  o por  el 
scalextric.  GP-27  ampliado.  Agustín  Ruiz 
Castrillo.  C/  Gregorio  Solabarrieta,  49,  4° 
Izda.  MIRANDA  DE  EBRO  (Burgos).  (Ref. 
M-67). 

% 

• Usuario  de  C-64,  estoy  interesado  en  el 
intercambio  de  experiencias  y programas 
de  todo  tipo.  Viviendas  Santiago  Aposto!, 
125.  1°  Deha.  NARON  (El  Ferrol).  Teléfono: 
38  58  7 1 . (Ref  M-68). 

Vendo  un  COMMODORE  64,  nuevo  a 
estrenar,  con  garantía,  con  Cassette  Com- 
modore, con  cartucho  de  fútbol,  con  cinta 
de  ajedrez  “Gran  Master”  y un  libro  con  60 
programas  para  el  CBM-64,  y todo  por 

65.000  ptas.  Juan  Benítez  Sánchez.  P° 
Fabra  y Puig.  331.  Tel.:  358  98  06.  BAR- 
CELONA-31.  (Ref.  M-69). 
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• Club  de  amigos  del  VIC-20  y Comino- 
dore  64.  Ramón  O.  Serna  Soler.  Foto  Estu- 
dio 2.  Plaza  de  Sombrereros,  2.  PALMA 
DE  MALLORCA.  Tel.:  21  31  62.  (Ref.  C-l). 

• Desea  información  sobre  clubs  en  exis- 
tencia y gente  que  quiera  formar  uno. 
Agustín  Quevedo  Velasco.  C/  Oña,  55-4ü  B. 
MADRID-34.  Tel.:  202  94  28.  (Ref.  C-2). 

• Desea  información  sobre  clubs  en  exis- 
tencia y gente  que  quiera  formar  uno. 
Pablo  Nistal  Alonso.  C/  Empecinado,  46, 
6*  B.  MOSTOLES.  Tel.:  645  21  70.  (Ref. 
C-3). 

• Club  de  programación  Alaiz,  en  Pam- 
plona. Está  dirigido  a estudiantes  de  B.U.P. 
y C.O.U.  de  esta  ciudad,  y el  fin  que  tiene  es 
la  introducción  en  el  mundo  de  la  informá- 
tica y programación  BASIC.  No  tiene,  por 
lo  demás,  ningún  fin  lucrativo.  El  club  pro- 
piamente posee  equipos  COMMODORE 
64.  VIC-20  y diversos  periféricos  (impre- 
sora, unidad  de  disco  y cassette).  CLUB 
ALAIZ.  Pza.  Monasterio  Santa  Gemma, 
s/n.  Tels.:  254  480-257  704.  PAMPLONA. 
(Ref  C-4). 

• Club  de  Commodore  de  Albacete.  Fer- 
nando Martínez  Guerrero.  La  Roda,  39  5L> 
D.  ALBACETE.  (Ref  C-5). 

• Circulo  de  Durcnsan  Vigués.  VIGO.  C/ 
Venezuela,  48.  Entrcchan.  Tels.:  (986)  410 
683/422  519..  (Ref  C-6). 

• Un  grupo  de  usuarios  de  la  Comunidad 
Autónoma  de  Murcia  intenta  crear  un  Club 
de  Usuarios  de  VIC-20  y C-64  en  esta 
región,  sin  fines  lucrativos.  Interesados 
llamar  a los  teléfonos  (968)  80  23  64 
(Mañanas,  preguntar  por  Paco);  (968)  26  72 
62.  (Tardes,  preguntar  por  Fernando). 
Francisco  Sáez  Soto.  C/  Virgen  del  Rosa- 
rio, 28.  ALCANTARILLA.  Murcia.  (Ref. 
C-7). 

• Deseo  contactar  con  interesados  en  for- 
mar un  club  de  microordenadores  en  Barce- 
lona e intercambiar  experiencia.  Domcnec 
Garrofe.  C/  Aragón,  575,  49  2Q.  BARCE- 
LONA-26.  Tel.:  348  00  39.  (Ref.  C-8). 

• Interesados  en  la  creación  de  Club  de 
Usuarios  en  Girona  escribir  a “Apartado 
de  Correos  nü  580“  de  GIRONA.  (Ref  C-9). 

• Xabier  Prat  i Burdo  que  vive  en  c/  Rabal 
Sta.  Eulalia  s/n.  de  Sta.  María  Délo 
(BAGES)  Barcelona,  quisiera  saber  si  existe 
algún  Club  Commodore  cerca  de  Manrcsa 
y solicta  información  sobre  todo  lo  relacio- 
nado con  Módems.  (Ref.  C-10). 

• Os  rogaría  me  comunicárais  si  existe 
algún  Club  Commodore  en  mi  ciudad 
(GUADALAJARA)  o en  ALCALA  DE 
HENARES  (donde  trabajo).  También  agra- 
decería información  acerca  accesorios, 
publicaciones,  etc.,  así  como  de  distribui- 
dores de  Madrid  que  trabajen  con  el  C-64. 
Miguel  Angel  Capeña  Alonso.  C/  Taber- 
nero, 16-3Ü  1.  Tel.:  (91)  22  67  57.  (Ref.  C-ll ) 


• Desearía  información  sobre  la  existencia 
de  algún  Club  Commodore  en  Somaén  o 
sus  cercanías.  Carlos  Cabrera.  Camino  de 
las  Eras,  s/n.  SOMAEN  (Soria).  (Ref  C-12). 

• Asociación  Manchega  de  Usuarios  de 
CBM-64  (A.M.U.C.-64).  C/  Blasco  de 
Garay,  10.  ALBACETE.  Esta  asociación 
persigue  extender  el  uso  racional  de  la 
informática,  concretándose  de  momento  en 
el  ordenador  Commodore  CBM-64.  (Ref. 
C-13). 

• Os  agradecería  que  comuniquéis  a los 
lectores  de  la  revista  el  nacimiento  del  Club 
MICRO-ESPLA1,  en  el  que  nos  reunimos 
aficionados  y profesionales  de  la  electró- 
nica e informática  con  ganas  de  divertirnos 
aprendiendo  e intercambiar  experiencias. 

Estamos  en  Gran  Vía,  682,  Pral.  (Entre 
Bruch  y Gerona)  de  BARCELONA.  Todos 
los  amigos  que  tengáis  más  de  15  años  y 
menos  de  100  podéis  participar  en  esta 
experiencia.  Y si  sois  más  jóvenes,  venid 
también,  ya  nos  las  ingeniaremos  para 
organizar  actividades  interesantes. 

Para  informaros,  los  viernes  de  6 a 8 
tarde  o los  sábados  de  9 a 1 1 de  la  mañana. 
(Ref.  C-14). 

• Queremos  formar  un  Club  Commodore 
en  Barcelona.  José.  Tel.:  329  86  31.  C/ 
Aurora,  19-49  1.a.  BARCELONA.  (Ref. 
C-15). 

• Me  dirijo  a ustedes  por  un  hecho 
reciente,  que  es  la  disolución  del  único  club 
de  usuarios  en  Barcelona  con  sede  en 
ELEKTROCOMPUTER.  Quiero  decirles 
que  su  revista  es  un  medio  para  crear  un 
nuevo  Club,  por  eso  pido  que  si  ustedes  lo 
creen  conveniente,  publiquen  esta  carta. 
Eduardo  Macip  Fite.  C/  Homo  de  la  Villa, 
n'-'  4.  MONTBLANC.  Tarragona.  (Ref.  C-16). 

• Quisiera  saber  si  existe  algún  club 
commodore  en  Sevilla.  Francisco  Javier 
Recio  Lamata.  C/  Fernán  Caballero,  22. 
SEVILLA-1.  (Ref  C-17). 

• Agradecería  mucho  a todo  el  que 
pudiera  informarme  sobre  la  creación  del 
club  commodore  en  Girona.  Daniel  Bassas. 
GERONA  capital.  Plaza.  Marqués  de 
Camps,  16,  3Ü,  2.a.  Tel.:  21  27  26.  (Ref 
C‘18). 

• El  club  Ensenada  de  Santander  ha 
puesto  en  marcha  un  club  de  usuarios 
Commodore,  disponemos  de  ordenadores 
Commodore  64  y VIC-20  dotados  de  diver- 
sos periféricos.  Su  actividad  se  centra  en  el 
intercambio  de  programas  y experiencias, 
perleccionamiento  de  lenguajes,  uso  del 
logo,  etc.  Club  Ensenada.  C/  Sta.  Lucía,  1, 
lü.  Tel.:  22  59  92.  (Ref  C-19). 

• Estoy  formando  un  club  de  intercambio 
de  programas  (en  cima)  para  VIC-20. 
Jaime  Vidal  Forteza.  C/  Sor  Damiana,  16- 
1°.  S.  Francisco  (Pil.  Iari).  PALMA  DE 
MALLORCA.  (Ref.  C-20). 

• Me  interesaría  conocer  si  hay  algún  club 
de  amigos  del  VIC-20  cerca  de  mi  ciudad. 
Agustín  Ruiz  Castrillo.  C/  Gregorio  Sola- 
barrieta,  49.  4Q  izda.  MIRANDA  DE 
EBRO  (Burgos).  (Ref.  C-21). 


BOLSA 
DE  TRABAJO 


OFERTA  DE  TRABAJO 
¡URGENTE! 


SE  NECESITA 
VENDEDOR 
DE  PUBLICIDAD, 
DINAMICO 
CON  EXPERIENCIA 
(RESIDENTE 
EN  MADRID) 

Contactar  con: 
COMMODORE  WORLD 
C/Pedro  Muguruza,  4.  8e  B 
Madrid-16.  Teléf.:  259  54  78 


OFERTA  DE  TRABAJO 
¡URGENTE! 


PROGRAMADOR 

(...O  CASI...) 


DIEGO  NECESITA 
AYUDANTE 
(QUE  SEA  BUENO/A) 
PARA  COMPROBACION 
DE  PROGRAMAS, 
QUE  QUIERA  APRENDER 
MUCHO  Y TRABAJAR 
UN  MONTON, 
RESIDENTE  EN  MADRID 
Y BUENA  COMPRENSION 
DEL  INGLES 
(...NO  NECESITA 
HABLARLO...) 


Contactar  con: 
COMMODORE  WORLD 
C/Pedro  Muguruza,  4.  8U  B 
Madrid-16.  Teléf.:  259  54  78 
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El  Misterio 
de  los  Pokes  (IV) 

Por  Diego  ROMERO 


Como  prometimos  en  el  número  ante- 
rior, vamos  a tratar  de  aclarar  la  fun- 
ción de  esos  “misteriosos  pokes"  que 
aparecen  en  muchos  programas  al  utilizar 
caracteres  definidos  por  el  usuario,  me 
refiero  a los  punteros  de  principio  y final  de 
memoria  ocupada  por  el  programa  en 
BASIC,  sus  posiciones  de  memoria  y fun- 
ciones son  los  de  la  tabla  1: 


Dirección 

Nombre 

Función 

Hex 

Dec 

2B-2C 

43-44 

TXTTAB 

Puntero  de  inicio 
BASIC. 

2D-2E 

45-46 

VARTAB 

Puntero  de  inicio 
de  variables. 

2F-30 

47-48 

ARYTAB 

Puntero  de  inicio 
de  tablas. 

31-32 

49-50 

STR EN D 

Puntero  de  fin  de 
tablas  +1. 

33-34 

51-52 

FRETOP 

Puntero  de  inicio 
de  cadenas. 

35-36 

53-54 

FRESPC 

Puntero  de  utili- 
dad para  cade- 
nas. 

37-38 

55-56 

MEMSIZ 

Puntero  de  final 
de  RAM. 

Como  podéis  ver  todas  estas  direcciones 
van  asociadas  dos  a dos,  es  así  por  tratarse 
de  vectores,  y como  ya  sabréis  para  poder 
señalar  a cualquiera  de  las  65536  posiciones 
de  memoria  de  nuestro  ordenador  necesi- 
tamos dos  bytes.  El  modo  en  que  se  alma- 
cenan los  vectores  es  el  que  ya  expliqué  en 
el  cursillo  de  lenguaje  máquina  del  número 
anterior.  Para  aquellos  que  no  lo  sigan 
repetiré  que  se  almacena  en  la  primera 
posición  de  memoria  el  byte  de  menor 
peso  del  vector,  y en  la  siguiente  po- 


sición de  memoria  al  byte  de  mayor  peso. 

En  la  tabla  aparecen  unos  nombres 
“raros"  que  son  los  nombres  que  les  dio  la 
casa  Commodore  al  diseñar  el  ordenador, 
es  mejor  no  fijarse  mucho  en  ellos,  de 
momento  sólo  nos  interesan  las  funciones 
de  cada  vector. 

El  primer  vector  (TXTTAB)  es  el  que 
apunta  al  principio  de  la  memoria  de  reser- 
vada para  el  programa  BASIC,  en  el  VIC 
20  varía  según  la  ampliación  de  memoria 
que  tengamos,  y en  el  C-64  suele  apuntar  a 
la  dirección  $0801,  por  lo  que  la  dirección 
43  contiene  un  uno  y la  44  contiene  un  8. 
Este  vector  se  puede  alterar  cuando  se  utili- 
zan gráficos  de  alta  resolución  para  reser- 
var espacio  antes  del  programa  BASIC. 

El  segundo  vector  (VARTAB)  es  el  de 
final  de  programa  BASIC  y va  subiendo 
según  aumentemos  el  tamaño  del  pro- 
grama. El  final  del  programa  coincide  con 
el  inicio  de  la  zona  reservada  a variables, 
por  eso  se  le  denomina  “inicio  de  varia- 
bles". El  vector  va  apuntando  a posiciones 
más  altas  de  memoria  conforme  vamos 
definiendo  más  variables  en  el  programa. 

El  tercero  (ARYTAB)  es  el  del  final  de 
variables  y coincide  con  el  principio  de  las 
tablas  de  matrices.  A partir  de  la  posición 
de  memoria  a donde  apunte,  se  guardan 
unas  tablas  de  vectores,  que  apuntan  a cada 
uno  de  los  elementos  de  cada  matriz  que 
tengamos  definida. 

El  cuarto  vector  (STR EN D)  es  el  puntero 
que  indica  cuál  es  el  final  de  la  zona  reser- 
vada a tablas  de  matrices.  Incrementa  su 
valor  conforme  vamos  definiendo  más 
matrices  en  el  programa  con  sentencias 
DIM. 


La  distancia  entre  los  vectores  tercero  y 
cuarto  aumenta  cuando  dimensionamos 
una  matriz,  por  ejemplo  con  DIM  A$(19), 
esta  sentencia  reserva  espacio  para  los  vec- 
tores que  apuntan  a los  20  elementos  de  la 
matriz  AS  (del  0 al  19).  Los  elementos  de  la 
matriz  no  se  guardan  aquí  por  tratarse  de 
una  matriz  de  cadenas,  los  vectoes  apuntan 
a la  dirección  donde  se  encuentran  los  ele- 
mentos de  la  matriz  dentro  del  espacio 
reservado  para  cadenas. 

El  quinto  vector  (FRETOP)  es  el  que 
señala  el  principio  de  la  zona  reservada 
para  cadenas,  en  esta  zona  se  realizan  todas 
las  operaciones  que  tienen  que  ver  con  los 
strings,  por  ejemplo:  cuando  decimos 
A$=A$+B$,  la  CPU  busca  la  cadena  B$,  la 
A$  y las  concatena  dejando  el  resultado  en 
el  espacio  reservado  para  cadenas.  Este  vec- 
tor al  revés  que  los  anteriores,  disminuye 
cuando  se  van  introduciendo  más  cadenas, 
es  decir,  crece  hacia  abajo. 

El  sexto  vector  (FRESPC)  es  un  puntero 
que  utiliza  la  CPU  para  todo  tipo  de  opera- 
ciones con  cadenas,  pero  no  señala  a nin- 
guna posición  de  memoria  en  particular. 

Por  último  el  séptimo  vector  (MEMSIZ) 
es  el  que  señala  al  final  de  la  zona  utilizable 
para  programas  en  BASIC.  Si  hacéis  un 
POKE  a estas  posiciones  y después  borráis 
las  variables  con  el  comando  Basic  CLR 
para  restaurar  los  demás  punteros,  podréis 
alterar  la  memoria  libre  para  programas  en 
Basic,  probad  diferentes  valores  en  estas 
dos  últimas  posiciones,  luego  CLR  y hacer 
PRINT  FREE  ( 1 ) con  RETURN,  ya  veréis 
cómo  podéis  aumentar  o disminuir  la 
memoria  libre. 

Cuando  se  definen  caracteres  propios,  se 
suelen  modificar  estos  valores  para  prote- 
ger una  zona  de  la  memoria  de  la  intrusión 
por  el  intérprete  Basic.  Si  queréis  obtener 
más  información  sobre  el  modo  de  hacerlo, 
podéis  leer  el  artículo  aparecido  en  la  sec- 
ción VIDEO-CASINO  del  número  ante- 
rior. ■ 


CENTRO  DE 
INFORMATICA 

Las  Rozas  - Majadahonda 
EMPEZAMOS 
Cursillos  en  BASIC 
cada  15  días 
Directamente  en  ordenadores 
VIC-20,  COMMODORE  64 
SPECTRAVIDEO 

Teléfono:  637  31  51 
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VideoCasino 


Vive  toda  la  emoción  en  una  “guerra 
artística”  Para  la  adquisición  de  unos  cuadros 
de  valor  con  este  programa  que  presenta 
una  subasta  de  arte.  Podrías  hacerte  con  un 

Rembrandt  genuino. 


Las  simulaciones,  que  se  prestan  a los 
juegos  de  ordenadores,  proporcionan 
un  amplio  fondo  para  presentar  jue- 
gos de  lógica,  las  matemáticas  y de  otros 
tipos.  Se  puede  construir  cualquier  tipo  de 
concurso  de  habilidad  o de  pura  suerte 
alrededor  de  una  simulación. 

Una  simulación  normalmente  es  un 
modelo  computerizado  de  una  situación  y 
el  jugador  o jugadores  desempeñando  el 
papel  de  uno  o más  participantes  en  la 
situación  que  se  esté  simulando.  Un  escena- 
rio típico  puede  ser  la  operación  de  un 
puesto  de  venta,  un  viaje  al  oeste  en  carro, 
o,  como  en  este  juego,  la  compra  y venta  de 
una  obra  de  arte  en  una  subasta. 

En  todos  los  juegos  de  este  tipo,  tienes 
que  tomar  una  serie  de  decisiones  a lo  largo 
del  juego  que  tengan  una  influencia  sobre  el 
resultado.  A menudo,  se  juega  mejor 
cuando  se  dispone  de  unos  conocimientos 
sobre  la  situación  real. 

Por  ejemplo,  se  ha  construido  una  situa- 
ción compleja  alrededor  de  un  escenario 
tipo  “Hammurabi”,  en  que  tú  eres  el  jefe 
absoluto  de  un  país  y tienes  que  decidir  las 
tierras  que  serán  plantadas,  los  alimentos 
que  serán  dados  a la  población  y la  cose- 
cha. De  acuerdo  con  la  sabiduría  de  tus 
decisiones,  las  consecuencias  pueden  ser  la 
riqueza  o la  bancarrota.  Además  de  las 
acciones  del  jugador,  se  utilizan  unos  facto- 
res aleatorios  para  determinar  la  cosecha, 
nacimientos,  muertes,  etc. 


VIC-20 

NO  AMPLIADO 
C-64 


Los  juegos  de  tipo  aventura  también  son 
un  tipo  de  simulaciones.  Estos  intentan  imi- 
tar un  viaje  a través  de  un  castillo  embru- 
jado, una  central  nuclear  u otro  sitio  intere- 
sante. La  mayoría  de  ellos  tienen  muy 
pocos,  por  no  decir  ninguno,  factor  aleato- 
rio; tu  meta  es  descubrir  una  serie  de  suce- 
sos establecidos  que  conducen  a la  solución 
de  la  aventura. 

“Obras  Maestras’'  es  un  ejemplo  del  ter- 
cer tipo  de  simulación,  en  la  cual  la  suerte 
controla  por  completo  el  resultado.  Tú  tie- 
nes que  utilizar  tu  intuición,  percepción  o 
pura  suerte  para  adivinar  la  combinación 
de  precios  y apuestas  que  proporcionarán 
los  resultados  más  favorables. 

El  juego  de  enfrentar  a unos  contrincantes 
en  una  guerra  para  comprar  y vender  cua- 
dros al  mejor  precio  posible.  La  finalidad 
del  juego  es,  al  concluirse  este,  tener  tú  la 
mayor  parte  posible,  o más  de  la  cantidad 
original  de  $5000. 

Te  ofrecen  cinco  cuadros,  uno  por  uno, 
que  tú  puedes  comprar  con  tus  $5000.  Tú 
puedes  pujar  una  vez  para  cada  cuadro.  El 
ordenador  selecciona  una  cantidad  al  azar 
para  pujar,  que  puede  ser  más  alta  o más 
baja  que  la  tuya.  Si  tú  has  ofrecido  más 
dinero,  te  quedas  con  el  cuadro.  Si  no,  lo 
pierdes  para  siempre. 

Obviamente,  una  buena  estrategia  a 
seguir  es  asegurar  que  tú  ganes  ofreciendo 
la  cantidad  más  pequeña  posible,  dejando 
así  la  máxima  cantidad  para  las  compras 
posteriores.  Sin  embargo,  dado  que  es  difí- 
cil pronosticar  lo  que  el  ordenador  ofre- 
cerá, esto  puede  resultar  bastante  com- 
plicado. 

Después  de  que  se  hayan  vendido  todos 
los  cuadros,  tú  puedes  vender,  los  que 
hayas  podido  comprar.  A medida  que  cada 
cuadro  sale  a subasta,  la  cantidad  original 


que  se  pagó  por  él  será  indicado,  y el  orde- 
nador le  hará  una  oferta  que  puedes  acep- 
tar o rechazar. 

Una  cantidad  superior  puede  o no  ser 
ofrecida.  El  número  de  ofertas  será  aleato- 
rio. Tú  nunca  sabrás  si  debes  aceptar  la 
oferta  o esperar  por  si  te  ofrece  un  precio 
más  alto.  La  oferta  más  reciente  podría  ser 
la  última.  En  ese  caso,  te  habrás  quedado 
con  el  cuadro  y no  recibirás  dinero  al  final 
de  juego. 

La  parte  del  programa  del  C-64  que 
incluye  la  compra  empieza  en  la  línea  190, 
donde  un  bucle  For...  Next  se  repite  de  1 a 
5.  Se  representa  el  dinero  restante  (Cash), 
junto  con  el  número  del  cuadro  en  venta  y 
una  invitación  a pujar.  No  puedes  ofrecer 
más  dinero  que  el  que  tienes  (línea  270). 

A continuación,  el  ordenador  hace  la 
contraoferta  (OP).  El  ordenador  elegirá  un 
número  de  1 a 99,  lo  multiplicará  por  10  y 
le  sumará  150.  De  esta  forma,  la  oferta  más 
baja  será  de  $160,  y la  más  alta  $1140.  Es 
mejor  si  no  sabes  esto.  De  no  ser  así,  nin- 
guna oferta  será  mayor  de  $11401.  Ten  en 
cuenta  que  dado  que  se  ofrecen  cinco  cua- 
dros, no  será  posible  ofrecer  $1141  por 
cada  uno,  aún  sabiendo  tú  el  secreto. 

El  número  de  cuadros  comprados,  NU, 
se  utiliza  para  limitar  otro  bucle  For. ..Next, 
de  1 a NU,  durante  el  cual  se  pueden  vender 
los  cuadros.  El  precio  de  compra  de  cada 
cuadro  de  tu  colección  ha  sido  previamente 
almacenado  en  un  “array”,  Collect  (NU)  y 
será  representado. 

Un  bucle  anidado  va  desde  el  l al 
número  de  ofertas.  Esta  cifra,  NB,  se  elige 
en  la  línea  460,  y será  de  1 a 7 ofertas.  En 
algunas  tandas,  sólo  se  hará  una  oferta,  en 
otras,  se  pueden  hacer  hasta  siete.  De  esta 
forma,  tú  nunca  sabrás  si  la  oferta  más 
reciente  será  la  última,  o si  se  hará  una 
oferta  más  sustanciosa. 
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La  cantidad  ofrecida  se  determina  en  la 
línea  480  y puede  ser  de  $500  a $2409.  Aquí 
de  nuevo,  los  jugadores  no  deben  de  saber 
estas  cifras.  Lo  ideal  es  que  nadie  sepa  cuál 
puede  ser  la  oferta  más  baja  ni  la  más  alta. 
Si  estos  valores  pueden  ser  deducidos  des- 
pués de  haber  jugado  muchas  veces,  pueden 
ser  cambiados  haciendo  unas  modificacio- 
nes en  el  programa. 

Por  ejemplo,  puedes  modificar  la  canti- 
dad mínima  y máxima  que  tu  contrincante 
puede  ofrecer  inicialmentc  por  un  cuadro 
determinado,  o la  cantidad  que  será  ofre- 
cida cuando  el  cuadro  se  pone  en  venta. 


También  puedes  aumentar  el  número  de 
ofertas  posibles  de  siete  a diez,  o cualquier 
otro  número: 

Si  se  acepta  la  oferta,  la  cantidad  se  suma 
a tu  “Cash”.  Si  se  rechaza  la  última  oferta, 
un  mensaje  aparece  en  pantalla.  Una  vez 
vendidos  todos  los  cuadros,  se  presentan 
los  resultados,  y puedes  volver  a jugar. 

El  programa  “Obra  Maestra”  propor- 
ciona toda  la  diversión  de  una  subasta  de 
verdad,  pero  no  te  cuesta  dinero.  Como 
simulación,  constituye  una  introducción 
sencilla  a un  tipo  de  juego  cada  vez  más 


Listado  para  el  VIC-20  y el  C-64. 


10  REM################## 

20  REM#  # 

30  REM#  OBRAS  MAESTRAS  # 

40  REM#  # 

50  REM################## 

60  CASH-5000 

65  P0KE53281 > 1 

78  PR I NT " [ CLR 3 C 2CRSRD 3 " 

80  PR I NTT AB < 4 ) " C RVSON 3 í RED ] OBRAS  C SPC ] 
MAESTRAS  C BUJ  ] C RVSOFF 3 [ 2CRSRD 3 " 

90  PR I NTT AB < 2 > " TU [ SPC  3 DEBES  C SPC  3 PUJA 
RE SPC 3 POR" 

100  PR I NTTAB  < 4 ) " C I NCO C SPC  3 CUADROS " 

110  PR I NTTflB <1>" VALI OSOS. C2SPC3COMEN 
ZANDO " 

120  PR I NTTflB  < 6 ) " EN  C SPC ] 5000 C SPC  3 $ . H 
130  PR I NTTAB < 1 > " ENTONCES C SPC  3 DEBES C SPC  3 
VENDER” 

140  PR I NTTAB  < 1 > " TU  C SPC  3 COLECC 1 0N C SPC  3 
TAN  C SPC  3 CARA 11 

150  PR  í NTTAB < 2 > " COMO  C SPC  3 SEA [ SPC 3 POS 
IBLE. ” 

170  PR I NT " C 2CRSRD 3 ” ; T AB  < 4 > ” C RVSON  3 C GRN 3 
PULSA  C SPC 3 UNA [ SPC  3 TECLA [ RVSOFF 3 C BLU 3 

M 

1 80  GETfl* = I FA*=" " THEN 1 80 

190  F0RN=1  T0  5 

200  PR I NT " [ CLR ] [ 2CRSRD ] " 

210  PR I NTTAB  < 2 > " TE [ SPC ] QUEDAN [ SPC  ] $ 

" ; CflSH 

220  PR I NTTflB (2 > "EL [ SPC] CUADRO [ SPC ] # " 

;N; "ESTA" 

230  PRINTTAB<2) "flC SPC] LA [SPC] VENTA. " 

240  PR I NTTAB  < 2 ) " [ CRSRD ] C RVSON ] [ CVN ] E 
NTRA [ SPC ] TU [ SPC ] PUJA  [ BLU ] " ; 

250  INPUTBID* 

260  B I D=VAL  < B I D$  > 

270  I FB I D>CASHGOTO200 

280  0P= I NT  < RND ( 1 ) # 1 00 ) # 1 0+ 1 50 

290  PR I NT " [ 2CRSRD ] OTRO C SPC ] COLECC 1 0N 

ISTR" 

300  PR I NT " OFRECE C SPC ] $ " ; QP ; "POR [SPC] 
ESE" 

310  PRI NT "CUADRO. C CRSRD]" 

320  I FB I D>OPTHEN350 

330  PR INTTAB ■: 2 >"L0C SPC] PERDISTE!  " 

340  GOTO390 

350  PR I NTTAB < 2 > " LO [ SPC ] HAS C SPC ] COMPR 
RDO ' " 


360  NUeNU+1 

370  COLLECT < NU ) =B  I D 

380  CASH=CASH-B I D 

390  PR I NT " [ 2CRSRD ] " ; TflB ( 6 > " [ RVSON ] [ GRN ] 
PULSA [ SPC ] UNA  C SPC ] TECLA [ RVSOFF ] [ BLU ] 

II 

400  GETA* ■ IFAÍ=""THEN400 

410  NEXT  N 

420  F0RN=1  T0  NU 

430  PR I NT " [ CLR ] [ 2CRSRD ] " 

440  PRI NTTAB < 2 > " PUEDES [ SPC ] VENDER [ SPC ] 
AHORA" 

450  PR I NTTAB  < 2 ) " TU [ SPC ] CUADRO [ SPC ] # " 

• n ; " •• 

460  NB= I NT  < RND ( 1 > *6  > + 1 

470  FOR  N2=l  T0  NB 

430  B I D= I NT  < RND  < 1 > #200  > * 1 0+500 

490  PR I NTTAB < 2) " [ 2CRSRD ] TE [ SPC ] OFREC 

ENCSPC]#" ; BID 

500  PR  I NTT  AB  < 2 ) " POR  C SPC  ] ESTE  [ SPC  ] CIJA 
DRA. C CRSRD 3 " 

5 10 ’ PR I NTTAB  < 2 ) " TU C SPC ] PAGASTE [ SPC ] $ 

" ; COLLECT  <N) ; " . " 

520  PR  I NTT  AB  < 2 > " ACEPT  AS  [ SPC  ] < S/N  ) ? " 

540  GETAÍ : IFAS=" "THEN540 
550  PR I NT " [ CLR ] [ 2CRSRD ] " 

560  I FA*= " S " THEN580 
570  GOTO600 
580  CASH=CflSH+B I D 
590  GOTO690 
600  NEXT  N2 

610  PR I NT " [ CLR ] [ 2CRSRD ] " 

620  PR I NTTAB (. 2 > "LO [ SPC ] S I ENTO ..  [SPC] A 
MIGO! " 

630  PR I NTTAB  < 2 > " ESA [ SPC ] FUE [ SPC ] L A [ SPC ] 
ULTIMA" 

640  PRI NTTflB (2) "OFERTA! . [SPC] TE [SPC] 

HRF: " 

650  PR I NTTAB < 2 ) " PASADO . [ 2CRSRD ] " 

670  PRI NTTAB < 6 ) " [ RVSON ] [ GRN ] PULSA [ SPC ] 
UNA [ SPC ] TECLA [ RVSOFF ] [ BLU ] " 

630  GETA* : IFAf=" "THEN680 
690  NEXT  N 

700  PRI NT" [CLR] [2CRSRD] " 

710  PRI NTTAB < 2 > " COMENZASTE [ SPC ] CON [ SPC ] 
*5000. " 

720  PR I NTTAB  < 2 > " TERM I NASTE [ SPC ] EL [ SPC ] 
JUEGO" 

730  PR I NTTAB ( 2 ) " CON [ SPC ] $ " ; CflSH ; ". " 

740  PR I NT " [ 2CRSRD ] " 

750  PR I NTTAB C 2 ) " JUEGAS [ SPC ] MAS [ SPC ] ( 
S/'N>?" 

760  GETfl*: IFA*=" "THEN760 
770  I FA*= "S " THENRUN 
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EXCURSION  POR  la 

Cursillo  do  1 

Máquina 


Lo  complicado  de  «ve 

dircccionamicnto  p 

hender  el  modo  de  especificar  a 
inde  saltamos,  ya  Qu 
ASIC  decimos  el  nume  < 

U -«-*  sr„ S 

■ salta  una  "d.stancia  a panir 
el  punto  donde  nos  encontra 

nos  veamos  un  ejemplo. 

10  A=PEEK(254) 

20  1F  A=0  GO  TO  40 
30  POKE  255, A 

Este" ^programa  leería  M« 
contiene  la  posición  25  Y lo 
cero  termina,  si  equi- 

nnnp  en  u posición  /->•>•  Ll  c^, 
pone  P ,•  „ mániiina  sena 


el  último  número  vimos  los 
iodos  de  direccionamiento 
luto  e inmediato,  y en  este 
s a ver  el  de  página  cero  > 


Por  Diego  ROMERO 


e debemos  acia-  i 
instrucción  que 
de  ReTurn  from 

e subrutina), 
el  control  al  1 
pal  al  igual  que 
-n  RETURN. 

el  salto  BEQ 

de  la  instrucción 

delante  a partir 
instrucción,  si 

igual  que  no 

' — continuaría  en  la 

— 

~~s&?£!£2> 

:S:5 

,2Ke™Tví»”o”  ÍS  dar.. 

com„Vp>««  ™ s^f0 

-risas  ÜÍS* 


rar  es  v< 
aparece. 

Subrutine  (vuelve  ( 
se  usa  para  volver 
programa  princu 
en  BASIC  la  instrucción 
Lo  segundo  es  u 
$02,  se  trata 
Branch 

a cero),  >’  su  ° 

“dos  bytes"  bacía 
de  la  siguiente 
fuese  BEQ  S00  sena 

ponerla  yaque 
siguiente 
mos  que 


Direcci©namiento 

■ donde  se  ejecuta  el 
Se  salta  cuando  se 
condición  determi- 
quivalente  a las  ms- 

THEN...  o 1F- 
BASIC,  con  la  dite- 
la  condición  que  se 
el  estado  de  las 
hemos  visto  en  el 
pítulo  de  esta  sene 
la  revista),  al  estu 
de  estado  de  la 
saltar  si  el  resul- 
última  operación  fue 
negativo,  etc... 


saltar  hacia 
$0033  desde  el  punto 

modo  programa.  ^ 

ue  con  cumple  una 

; sólo  nada,  y es  c 

jue  con  trucciones  1E 
miento  GOTO...  en 

las  256  rencia  de  que 
•o  tiene  comprueba  es 
banderas  que 
instruc-  segundo  ca[ 

i POKE  (numero  4 de 

bsoluto  diar  el  registro 

, rPU  Se  puede 

con  más  tado  de  la  i 

igual  a cero 
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IBM 
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CANTIDAD 

PRODUCTO 

PRECIO  UNI T 

TOTAL 



EMPAQUE 

TADO  1 TRANSPORTE  GASTOS  DE  ENVIO 

300 

Induw  ctiaqup  nomnatwo  a favor  da  M0ESC0PM  SJL  por  P|, 

TOTAL 
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CUANDO  SE  TIENE  UN  COMMODORE  64 

ES  MUY  DIFICIL  SER  MODESTO 


Cuando  se  tiene  un  ordenador  personal 
con  64K  de  memoria,  una  magnífica  resolución, 

16  colores,  efectos  tridimensionales 
con  "sprites",  un  sonido  equivalente 
al  de  un  sintetizados  un  teclado  profesional 

con  62  caracteres  gráficos, 
toda  una  amplia  gama  de  periféricos 
profesionales,  la  más  completa  serie 


de  programas  educativos,  profesionales 
y de  video-juegos...;  en  resumen,  cuando  se 
tiene  un  ordenador  personal  como  no  existe 
ningún  otro  en  el  mercado  y el  más  vendido 
mundialmente,  cuando  se  tiene 

el  Commodore  64,  es  muy  difícil  mostrarlo 
sin  que  el  orgullo  se  te  note. 


EL  ORDENADOR  PERSONAL  DE  LA  FAMILIA  MAS  POTENTE 

- Sistemas  de  gestión  profesionales  series  8000  Y 700.  - Ordenador  portátil  SX  64. 

- Ordenador  personal  COMMODORE  64.  - Ordenador  familiar  VIC  20. 


commodore 

COMPUTER 


MICROELECTRONICA  Y CONTROL,  S.A. 
c/  Taquígrafo  Serra,  7,  5 ° BARCELONA-29  c/  Princesa,  47,  3 ° G MADRID-8 


